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Listas de propiedades 


AMOS a ver a continuación 
tres primitivas que nos per- 
miten consultar las listas de 
propiedades asociadas a las 
variables y a los procedi- 
mientos. 


— IMPROP nombre 


significa IMprime PROPie- 
dades 


Esta primitiva presenta en pantalla la 
lista de propiedades del nombre especificado. 

El nombre puede ser una variable, un 
procedimiento o un grupo. 

Veamos algunos ejemplos: 

Primero asociamos a una variable una 
lista de propiedades. 

? HAZ'A CASA 

? PONPROP :A "BALCON "EXTERIOR 

? PONPROP :A "TELEFONO "ROJO 


Comprobamos que la variable A tiene 
asociadas estas propiedades. 


? IMPROP :A 
PONPROP :A "BALCON "EXTERIOR 
PONPROP :A "TELEFONO "ROJO 


En la pantalla han aparecido las dos 
propiedades con sus respectivos valores. 

Si borramos de la variable A la propie- 
dad BALCON. 


? BOPROP :A "BALCON 


Al consultar de nuevo la lista obtene- 
mos: 


? IMPROP :A 
PONPROP :A "TELEFONO "ROJO 


También podemos borrar la otra pro- 
piedad que tiene asociada la variable A. 


? BOPROP :A "TELEFONO 


Si intentamos consultar la lista de pro- 
piedades asociada a la variable A, en la 2 


“talla no aparecerá nada. 


? IMPROP :A 
— IMPROPS 


Esta otra primitiva presenta en la pan- 
talla las listas de propiedades de todo lo que 
se encuentre en el espacio de trabajo. 


Volvamos a asociar a la variable A las 
propiedades anteriores. 


? PONPROP :A "BALCON "EXTERIOR 
? PONPROP :A "TELEFONO "ROJO 


Y asociemos unas cuantas propiedades 
al siguiente procedimiento: 


? PARA”Al 

> HAZ "A [ME ENCANTAN LAS ZANA- 
HORIAS] 

> ES :A 

> FIN 


? PONPROP "A1 "CAMPO "HORTALIZAS 
? PONPROP 'A1l "COCINA "ZANAHO- 
RIAS 


Probemos ahora la primitiva IMPROPS: 


? IMPROPS 

PONPROP :A "BALCON "EXTERIOR 
PONPROP :A "TELEFONO "ROJO 
PONPROP "Al "CAMPO "HORTALIZAS 
PONPROP "A1 "COCINA "ZANAHORIAS 


La relación de listas tanto de la variable 
A del procedimiento A1, ha aparecido en la 
pantalla. 

Ampliemos el ejemplo trabajando con 
grupos. 

Imagina que tenemos definidos en la 
memoria los siguientes procedimientos. 


EXPERIENCIA Y PRACTICAS EN LOGO 


RAIZ 
TRONCO 
RAMA 
HOJA 


Formemos un grupo con ellos: 


? AGRUPA "ARBOL [RAIZ TRONCO 
RAMA HOJA] 


Y asociemos a este grupo una serie de 
propiedades: 


? PONPROP "ARBOL "NOMBRE "PINO 

? PONPROP "ARBOL "TAMANO 'GRAN- 
DE 

? PONPROP "ARBOL "EDAD "25 


Ahora en el espacio de trabajo está tam- 
bién el grupo ARBOL con una serie de propie- 
dades, comprobémoslo: 


? IMPROPS 

PONPROP :A "BALCON "EXTERIOR 
PONPROP :A "TELEFONO "ROJO 
PONPROP "A1 "CAMPO "HORTALIZAS 
PONPROP "A1 "COCINA "ZANAHORIAS 
PONPROP "ARBOL "NOMBRE "PINO 
PONPROP "ARBOL "TAMANO "GRAN- 


DE 
PONPROP "ARBOL "EDAD "25 
— LPROP nombre 


significa Lista de PROPiedades 


Devuelve la lista de propiedades aso- 
ciadas al nombre especificado. 

La principal diferencia entre esta primi- 
tiva y la primitiva IMPROP es la forma de la lis- 
ta devuelta; otra diferencia es que si utiliza- 
mos LPROP tenemos que indicar qué debe ha- 
cer el LOGO con la lista devuelta. 

Vamos a consultar con esta primitiva las 
listas asociadas anteriormente a la variable A, 
al procedimiento Al y al grupo ARBOL. 


? ES LPROP :A 
TELEFONO ROJO BALCON EXTERIOR 


? ES LPROP "A1 


COCINA ZANAHORIA CAMPO HOR- - 


TALIZAS 


? ES LPROP "ARBOL 
EDAD 25 TAMANO GRANDE NOMBRE 
PINO 


Observa que el orden de aparición es 
el contrario al orden de asociación. 

Veamos un último ejemplo con las tres 
primitivas: 

? HAZ "A "TELEVISION 

? PONPROP :A "NOTICIAS "TELEDIA- 

RIO 

? PONPROP :A "CONCURSO [UN DOS 

TRES] : 

? PONPROP :A "PUBLICIDAD [ATUN 

CALVO] 

? PONPROP :A "MUSICA [A TOPE] 

? PONPROP :A "INFANTIL [BARRIO SE- 

SAMO] 


? IMPROP :A 

PONPROP :A "NOTICIAS "TELEDIARIO 
PONPROP :A "CONCURSO [UN DOS 
TRES] 

PONPROP :A "PUBLICIDAD [ATUN 
CALVO] 

PONPROP :A "MUSICA [A TOPE] 
PONPROP :A "INFANTIL [BARRIO SESA- 
MO] 


? IMPROPS 

PONPROP :A "NOTICIAS "TELEDIARIO 

PONPROP :A "CONCURSO [UN DOS 

TRES] 

PONPROP :A "PUBLICIDAD [ATUN 

CALVO] 

PONPROP :A "MUSICA [A TOPE] 

PONPROP :A "INFANTIL [BARRIO SESA- 

MO] 

? LPROP :A 

INFANTIL [BARRIO SESAMO] MUSICA 
[A TOPE] PUBLICIDAD [ATUN 
CLARO] CONCURSO [UN DOS 
TRES] NOTICIAS TELEDIARIO 


Cuadro resumen 


— IMPROP nombre 


Presenta las propiedades que están 
asociadas al nombre especificado. 


— IMPROPS 


Presenta las listas de propiedades de 
todo lo que se encuentra en el espacio de tra- 
bajo. 


— LPROP nombre 


Devuelve la lista de propiedades aso- 
ciadas al nombre especificado. 


Ejercicios 
1. Dibuja una bombilla y establece un menú 


para seleccionar una de las siguientes opcio- 
nes: 


ENCENDER 
APAGAR 
TERMINAR 


Prepara los procedimientos necesarios 
para: 


— Rellenar la bombilla de color si se 
elige ENCENDER. 

— Rellenar la bombilla del color de fon- 
do si se elige APAGAR. 

— Parar si se elige TERMINAR. 


2. Realiza el siguiente dibujo. 


Fig. 1. 


3. Define los procedimientos necesarios para 
que introduciendo el nombre de una provincia 
española, obtengamos las correspondientes si- 
glas de la matrícula de sus vehículos. 


Haz los cambios necesarios para reali- 
zar este proceso a la inversa, es decir, que in- 
troduciendo una matrícula obtengamos la pro- 
vincia a la que corresponde. 


4. Define los procedimientos necesarios para 
realizar el siguiente proceso: 


1. Se pedirá que se introduzca un nú- 
mero de columna y de fila. 

2. Se pedirá que se introduzca una pa- 
labra del número de caracteres que se desee. 

3. Después de que una tecla haya sido 
pulsada, se borrará la pantalla y en ella ha de 
aparecer la palabra introducida a partir de la 
columna y fila que se han introducido. A con- 
tinuación la palabra se enmarcará de la si- 
guiente forma: 


Fig. 2. 


Este proceso tiene que ser válido para 
una palabra de cualquier longitud y situada en 
cualquier posición de la pantalla. 


5. ¿Son correctas las siguientes órdenes? 


— ?HAZ”A "ANIMALES 
? PONPROP :A "PECES "TRUCHA 
? PONPROP :A "MAMIFEROS "GATO 
? ES LPROP 


— ? HAZ "A "ANIMALES 
? PONPROP :A "PECES "TRUCHA 
? PONPROP :A "MAMIFEROS "GATO 
? ES LPROP :A "PECES 


— ? HAZ "A "ANIMALES 
? PONPROP :A "PECES "TRUCHA 
? PONPROP :A "MAMIFEROS "GATO 
? IMPROP :A 


— ?HAZ”A AZAR LL 


— ?HAZ"X 10 
? HAZ "Y 20 
? PONPOS LISTA :A :B 


EXPERIENCIA Y PRACTICAS EN LOGO 


Solución a los ejercicios 
1 


El procedimiento D inicializa la pan- 
talla, ejecuta el procedimiento que 
dibuja la bombilla y muestra el si- 
guiente menú: 


ENCENDER = 1 
APAGAR = 2 
TERMINAR = 3 


Si se pulsa el 1, la bombilla se 
rellena de color; si se pulsa el 2, la 
bombilla se rellena del color del fon- 
do; si se pulsa el 3, la ejecución ter- 
mina, si no, se vuelve a empezar. 


? PARA D 

> PM 

> FORMAN 

> PONCURSOR [1 2] 

> ES [ENCENDER =1] 

> PONCURSOR [1 4] 

> ES [APAGAR = 2] 

> PONCURSOR [1 6] 

> ES (TERMINAR = 3] 

SSL 

> PONPOS [0 10] 

> HAZ "A LC 

> BL 

> SI:A = 1 [PONCL 2 RELLENA] 
> SI:A = 2[PONCL 0 RELLENA] 
> SI:A = 3[ALTO] [D] 

> FIN 


El procedimiento FORMAM dibuja la 
bombilla. 


? PARA FORMAM 
> SL 

> PONCL 1 

> PONPOS [-15 -20] 
> BL 

> PONRUMBO 315 
> AV5 

> GD 45 

> AV15 

> Cl 45 

> AV5 

> GD 45 


> AV5 

> GI 45 

> AV10 

> REPITE 28 [AV 6 GD 10] 

> PONRUMBO 225 

> AV 10 

> PONRUMBO 270 

> AV 30 RE 30 

> PONRUMBO 180 

>AV5 

> GD 90 

> AV 30 RE 30 

> GI 45 

>AV5 

> GI 45 

> AVl15 

> GD 45 

> AV5 

> GD 45 

> AVl15 

> PONRUMBO 0 

> SL 

> PONPOS [-20 -17] 

> BL 

> REPITE 4 [GD 85 AV 26 
GI 170 AV 26 PONRUMBO 0] 

> FIN 


Al ejecutar el procedimiento D, en la 


pantalla aparece el menú y la bombilla apaga- 


?D 


Fig. 3. 


Si ahora pulsamos el 1, la bombilla se 
enciende. 


Fig. 4. 
2 


Definimos un procedimiento para inicializar la 
pantalla y para ejecutar el procedimiento que 
dibuja el puesto de helados. 


? PARA DI 

> BP 

> PUESTO 

> PONCURSOR [16 3] 
> ES "HELADOS 

> FIN 


PUESTO es el procedimiento que dibu- 
ja el puesto de helados. 


? PARA PUESTO 

SS 

> PONCL 3 

> PONPOS [-80 -40] 

> BL 

> REPITE 2 [AV 140 GD 90 
AV 160 GD 90] 

> Sh 

> PONPOS [-75 -40] 

> BL 

> AV 140 

> SL 

> PONPOS [-78 0] 

> PONCL 1 

> BL RELLENA 

> PONCL 3 

=sL 


> PONPOS [75 -40] 
> BL 

> AV 140 

> SL 

> PONPOS (78 0] 

> PONCL 1 

> BL RELLENA 

> SL 

> PONPOS [-75 -20] 
> BL 


> PONCL 3 

> GD 90 AV 150 
> SL 

> PONPOS [0 -30] 
> PONCL 1 

> BL RELLENA 

> SL 

> PONPOS [-75 20] 
> BL PONCL 3 

> AV 150 

> SL 

> PONPOS [0 -10] 
> BL RELLENA 

> SL 

> PONPOS [-75 80] 
> BL 

> AV 150 

> SL 

> PONPOS [0 90] 
> PONCL 1 

> BL RELLENA 

> FIN 


Consigue el dibujo tecleando: 
?D1 
3 


En primer lugar, creamos dos listas, una con 
los nombres de las provincias y otra con las 
matrículas de cada una de estas provincias. 
Los elementos de cada lista tienen que estar 
ordenados, es decir, tienen que corresponder- 
se, 


Esto lo realiza el procedimiento LISTAS: 


? PARA LISTAS 

> HAZ"A [AB A AL AV 
B BA Bl BU CC CA CE 
CS CR CO C CU GC GE 
GR GU H HU J LE L LO 
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LU M MA ML MU NA OR 
OP PMPO SA 5S S SG 
SE SO T TF TE TO V VI 
VA ZA Z AND GBZ] 

> HAZ "'B [ALBACETE ALICANTE 
ALMERIA AVILA BARCELONA 
BADAJOZ VIZCAYA BURGOS 
CACERES CADIZ CEUTA 
CASTELLON CIUDADREAL 
CORDOBA CORUNA CUENCA 
GRANCANARIA GERONA GRANA- 
DA 
GUADALAJARA HUELVA HUESCA 
JAEN LEON LERIDA LOGRONO 
LUGO MADRID MALAGA MELILLA 
MURCIA NAVARRA ORENSE 
ASTURIAS PALENCIA BALEARES 


PONTEVEDRA SALAMANCA GUI- : 


PUZCOA 
SANTANDER SEGOVIA SEVILLA 
SORIA TARRAGONA TENERIFE 
TERUEL TOLEDO VALENCIA 
ALAVA VALLADOLID ZAMORA 
ZARAGOZA ANDORRA GIBRAL- 
TAR] 

> HAZ 11 

> FIN 


En la variable A, guardamos la lista de 
las matrículas y en la variable B la lista de las 
provincias. 

El procedimiento Pl es el que presenta 
la pantalla en donde se indica la provincia, la 
matrícula y el mensaje de petición del nom- 
bre de una provincia: 


? PARA Pl 

> PONCURSOR [10 5] 

> ES "PROVINCIA 

> PONCURSOR [23 5] 

> ES "MATRICULA 

> SL 

> PONPOS [-90 40] 

> BL 

> REPITE 2 [AV 40 GD 90 
AV 196 GD 90] 

> AV 20 GD 90 

> AV 196 RE 98 

> GI 90 AV 20 

> RE 40 

> PONCURSOR [10 12] 

> ES [INTRODUCE LA PROVINCIA] 

> FIN 
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P2 realiza una lectura desde el teclado 
de una lista en la posición adecuada. La lista 
introducida se le asigna a la variable A: 


? PARA P2 

> PONCURSOR [10 7] 
> HAZ ”L LL 

> FIN 


Una vez que se ha introducido la pro- 
vincia, leemos los elementos de la lista de pro- 
vincias con la ayuda del contador 1. Cada ele- 
mento de esta lista lo asignamos a la variable 
P y lo transformamos en una lista. Cuando el 
elemento que se está leyendo coincide con la 
variable L (que es la que contiene la provin- 
cia introducida), ordenamos que se escriba el 
elemento que marca el contador 1 de la lista 
de matrículas: 


? PARA P3 

> HAZ "P (ELEMENTO 1 :B) 

> HAZ 'P LISTA :P 

> SI :P = :L [(PONCURSOR 
[23 7] ES ELEMENTO 1 :A] 
[HAZ "I :1 + 1 P8] 

> FIN 


Por último, el procedimiento P5 es el 
que nos da opción a introducir otra provincia: 


? PARA P5 | 

> PONCURSOR [10 12] 

> ES [¿OTRA PROVINCIA? S / N] 
> HAZ "T LC 

> 81 :T ="S [TO] 

> SI :T ="N [ALTO] 

> P5 

> FIN 


Una vez que tenemos todos los procedi- 
mientos necesarios para realizar el proceso, 
los englobamos en el procedimiento TO: 


? PARA TO 
> BP 

> BT 
OT 

> LISTAS 
> Pl 

> P2 

> P3 

PS 

> FIN 


Si lo ejecutamos: 


? TO 
en la pantalla aparece: 


Fig. 5. 


Si ahora introducimos el nombre de una 
provincia, por ejemplo, SALAMANCA, la pan- 
talla aparece de la siguiente forma: 


Fig. 6. 


Si el nombre de la provincia es com- 
puesto, por ejemplo, GRAN CANARIA, tienes 
que escribirlo junto. 

Los cambios que hay que hacer para 
realizar el proceso a la inversa son: 

En el procedimiento Pl intercambiamos 
los nombres de provincia y matrícula: 


? PARA Pl 

> PONCURSOR [10 5] 
> ES "MATRICULA 

> PONCURSOR [23 5] 
> ES "PROVINCIA 

> SL 

> PONPOS [-90 40] 

> BL 

> REPITE 2 [AV 40 GD 90 
> AV 196 GD 90] 

> AV 20 GD 90 

> AV 196 RE 98 

> GI 90 AV 20 

> RE 40 

> PONCURSOR [10 12] 
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> ES [INTRODUCE LA MATRICULA] 
> FIN 


En el P3 cambiamos las variables que 
contienen las listas. Vamos leyendo de la lista 
de matrículas y una vez encontrada escribi- 
mos el elemento correspondiente de la lista de 
provincias: 


? PARA P3 
> HAZ” P (ELEMENTO 1:A) 
> HAZ "P LISTA :P 
> SI :P =:L [PONCURSOR [22 7] 
ES ELEMENTO :1 'B] 
[HAZ "1 :1 + 1 P8] 
> FIN 


En P5 lo único que tenemos que hacer 
es cambiar el mensaje: 


? PARA P5 

> PONCURSOR [10 12] 

> ES [¿OTRA MATRICULA? S / N] 
> HAZ "TLC 

> Sl :T ="S [TO] 

> SI :T ='N [ALTO] 

> P5 

> FIN 


4, 


Definimos el procedimiento A para que en la 
pantalla aparezcan los mensajes de petición 
de la columna, la fila y la palabra que se de- 
sea que aparezca: 


? PARA A 

> PONCURSOR [2 2] 

> ES [INTRODUCE LA COLUMNA] 
> PONCURSOR [23 2] 

> HAZ 'C LL 

> HAZ "C UL :C 

> PONCURSOR [2 5] 

> ES [INTRODUCE LA FILA] 

> PONCURSOR [20 5] 

> HAZ ”F LL 

> HAZ "PF UL :F 

> PONCURSOR [2 8] 

> ES [INTRODUCE LA PALABRA] 
> PONCURSOR [23 8] 

> HAZ"A LL 

> HAZ"A UL:A 

> TECLA 

> FIN 


EXPERIENCIA Y PRACTICAS EN LOGO 


En la variable C guardamos el número 
de la columna y en la variable F el de la fila. 
Lá palabra que introducimos la asignamos a la 
variable A, 

Al final de este procedimiento hacemos 
una llamada a TECLA para pasar a la pantalla 
siguiente en vez que se haya pulsado una te- 
cla, El procedimiento TECLA es el siguiente: 


? PARA TECLA 

> PONCURSOR [12 22] 

> ES [PULSA UNA TECLA] 
> HAZ 'T LC 

> BP 

BT 

> FIN 


Una vez que se pulse una tecla, en la 
pantalla tiene que aparecer la palabra intro- 
ducida a partir de la columna y la fila que se 
ha introducido. Esto lo conseguimos con el 
procedimiento B: 


2 PARA B 

> PONCURSOR LISTA :C :F 
= ESA 

> FIN 


Una vez que la palabra se ha escrito en 
la pantalla, situamos a la Tortuga en el princi- 
pio de la primera letra y en su parte inferior. 

La posición en X la calculamos multipli- 
cando el valor de la columna donde se ha em- 
pezado a escribir la palabra por ocho, que son 
los puntos que ocupan un carácter en horizon- 
tal, y restándole 160, que es el punto extremo 
izquierdo de la pantalla. 

La posición en Y la calculamos multipli- 
cando la fila por diez, que es lo que ocupa un 
carácter en vertical si dejamos un punto en 
blanco por arriba y por debajo de él, y restán- 
dole 116, que es el punto superior de la panta- 
lla. 

Una vez situada la Tortuga en la posi- 
ción adecuada, calculamos sobre la variable 
CU la longitud horizontal en puntos que tiene 
la palabra. Para realizar esto, contamos los ele- 
mentos que tiene la palabra (longitud en ca- 
racteres). El número de elementos lo multipli- 
camos por ocho, que es lo que ocupa cada uno. 
De esta forma obtenemos el total de puntos en 
horizontal que ocupa. 
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Empezamos a dibujar el marco, sabien- 
do que la longitud de la palabra en horizontal 
está en la variable CU y que su longitud ver- 
tical es de diez puntos. 

El procedimiento C es el que realiza to- 
das estas operaciones y dibuja el marco: 


? PARA C 

> SL 

> PONPOS LISTA -160+*C*8 116-(:F * 10) 
> BL 

> HAZ "CU CUENTA :A 
> HAZ "CU :CU *:8 
> AV10GD 90 

> AV :CU GD 90 
> AV 10GD 90 

> AV:CU 

> PONRUMBO 0 
> GD 45 RE 10 
145 AV 25 

145 RE 10 

10 GD 135 
¿CU + 15 
145 RE 10 

V 10 GD 135 
V 25 Gl 45 

> RE10AV 10 

> GD 135 

> AV:CU+l15 

> FIN 


Una vez que tenemos todos los procedi- 
mientos necesarios, definimos TO, que es el 
que inicializa el proceso y engloba a todos los 
anteriores: 


VVWVVVVV 
»-»OQ0»»Q0Q 


> PONCURSOR [0 22] 
> FIN 


Si lo ejecutamos: 
TO 

e introducimos los siguientes datos: 
10 


11 
ORDENADOR 


en la pantalla aparecerá: 


Fig. 7. 


una vez que pulsemos una tecla en la pantalla 
aparecerá: 


Fig. 8. 


— ? HAZ "A "ANIMALES 
? PONPROP :A "PECES "TRUCHA 
? PONPROP :A "MAMIFEROS "GATO 
INCORRECTO 


El Logo devuelve el mensaje: 
FALTAN DATOS PARA LPROP 
No hemos indicado la variable o el pro- 


cedimiento que queremos consultar con la pri- 
mitiva LPROP. 


— ? HAZ "A "ANIMALES 
? PONRPOR :A "PECES "TRUCHA 
? PONPROP :A "MAMIFEROS “GATO 
? ES LPROP :A "PECES 


INCORRECTO. 
El LOGO devuelve el mensaje de error: 
NO SE QUE DEBO HACER CON PECES 


La primitiva LPROP no precisa de nin- 
guna propiedad específica. 


— ? HAZ "A "ANIMALES 
? PONPROP :A "PECES "TRUCHA 
? PONPROP :A "MAMIFEROS "GATO 
? IMPROP :A 


CORRECTO. 
En la pantalla aparece: 


PONPROP "ANIMALES "MAMIFEROS 
"GATO 

PONPROP "ANIMALES "PECES "TRU- 
CHA 


— ?HAZ"'A AZAR LL 
INCORRECTO. 
Si, por ejemplo, introducimos la lista: 
DONDE VAS 

recibiremos el mensaje: 


AZAR NO ADMITE [DONDE VAS] 
COMO DATO 


— ?HAZ"X 10 
? HAZ "Y 20 
? PONPOS LISTA :A :B 


CORRECTO. 


La primitiva PONPOS admite datos va- 
riables siempre que se indique la primitiva 
LISTA. 
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La alta resolución 
en el AMSTRAD 


OSIBLEMENTE el AMS- 
TRAD sea el ordenador con 
más modos de pantalla en 
alta resolución del mercado. 
También podemos decir 
que es el ordenador con ma- 
yor capacidad gráfica de to- 
dos los que tratamos en esta 
colección. 

El AMSTRAD dispone de tres modos de 
pantalla por todos conocido (MODE 0, MODE 
1 y MODE 2), en cada uno de ellos la resolu- 
ción es distinta y el número de colores que po- 
demos utilizar también es distinto. Cada modo 
de pantalla puede servirnos para un propósi- 
to en particular. El modo 0 nos puede servir 
para realizar juegos con gran colorido. El 
modo 1 puede servirnos para cualquier pro- 
grama que queramos hacer y que requiera 
una discreta distribución del color. Por otro 
lado, el modo 2 está muy enfocado a realizar 
programas en los cuales necesitamos mucha 
información simultánea en la pantalla. 

Al igual que en cada modo de pantalla 
tenemos una serie de caracteres por línea que 
varía entre 20 y 80, en cada modo tenemos una 
resolución distinta y un número de colores que 
podemos utilizar. La figura 1 nos muestra una 
tabla en la cual se ve la realización entre los 
caracteres por línea, la resolución y los colo- 
res que podemos utilizar. 


Fig. 1.—Los modos de pantalla y su resolución en el AMSTRAD. 
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El tener cada tipo de pantalla una reso- 
lución distinta y ocupar el mismo espacio vi- 
sual, implica que el tamaño de los caracteres 
y de los puntos son distintos de un modo a otro. 
Las figuras 2, 3 y 4 nos muestran la distriby- 
ción de dichos puntos. 


SE 


Fig. 2.—Modo 0 de pantalla, 


E 


Fig. 3.—Modo 1 de pantalla. Sus puntos son la mitad que en el 


S El 


Fig. 4—Modo 2 de pantalla. Sus puntos son la mitad que en el 
modo 1. 


Como se ve en estas figuras, la resolu- 
ción vertical no varía en ninguno de los tres 
modos de pantalla. 
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Los comandos de la alta resolución 
en el AMSTRAD 


A continuación vamos a hacer un estu- 
dio de los comandos e instrucciones de que 
dispone el AMSTRAD para dibujar líneas, pun- 
tos, etc., en alta resolución. Todo lo que se diga 
servirá para los tres modos de pantalla, aun- 
que, por comodidad, siempre hablaremos, del 
modo 1 y los programas los realizaremos en la 
resolución de 320 x 200. 


Las instrucciones PLOT y PLOTR 


Lo primero que se nos plantea es cómo 
dibujar un simple punto en nuestra pantalla. 


Para ello contamos la instrucción PLOT. Su sin- 
taxis es la siguiente: 


PLOT X,Y,C 


donde X e Y son las coordenadas del punto de 
la pantalla que queremos iluminar y C es el co- 
lor que queremos que tenga el punto. Este co- 
mando es muy sencillo y no tiene ninguna 
complicación. La diferencia entre un modo y 
otro de pantalla será en el tamaño del punto. 
Por supuesto, si estamos en el modo 0 y hace- 
mos un PLOT en 300, 100, como dicha coorde- 
nada se encuentra fuera de los límites de la 
pantalla, no lo veremos. 


1000 REM ASS OlOlOOlOjOjOJOKoK 
1010 REM * NOCHE ESTRELLADA x* 
1020 REM AdooOSOSlOOlOOjojalolololojololok 


1030 REM 


1040 REM AMOS lalolaok 
1050 REM *k PROGRAMA DEMOSTRACION PARA VER EL x*x 
1060 REM * USO DEL PLOR EN EL AMSTRAD. k 
1070 REM ada lalola lalala lolalalo lalalala lalalala lalalala laokok 


1080 REM 

1090 MODE 1 

1100 CLS 

1110 DIM X%(500) 
1120 DIM Y%(500) 
1130 REM 


1140 REM x*xxx* DIBUJO DEL CIELO ESTRELLADO x*xkxk 


1150 REM 
1160 LOCATE 1,25 


1170 PRINT "DIBUJANDO EL CIELO"; 


1180 RANDOMIZE TIME 
1190 FOR I=1 TO 500 
1200 
1210 
1220 
1230 PLOT X,Y,C 

1240  LET X%(1)=X 
p 1250  LET Y%X(I)=Y 

j 1260 NEXT 1 
1270 REM 


LET X=INT(RND(1)*320) 
LET Y=INT(RND(1)*200) 
LET C=INT(RND(1)*3+1) 


1280 REM *x* BUCLE DE RETARDO xxx 


1290 REM . 

1300 FOR I=1 TO 1500 
1310 NEXT I 

1320 REM 


1330 REM *x*x* BORRADO DEL CIELO ESTRELLADO xxx 


1340 REM 


1350 PRINT CHR$(7);CHR$(7); 


1360 LOCATE 1,25 


1370 PRINT "BORRANDO EL CIELO 


1380 FOR I=1 TO 500 


1390 LET X=XX(1) 
1400 LET Y=YX(1) 
1410 PLOT X,Y,0O 
1420 NEXT I 


1430 LOCATE 1,1,0 


, 


El programa que aparece a continua- 
ción nos muestra cómo se dibujan puntos con 
el comando PLOT. 

Una mirada atenta a la segunda parte 
del programa nos permitirá ver que si quere- 
mos borrar un punto no hace falta nada más 
que decir que el color de la tinta a utilizar sea 
igual que el del papel de fondo. 


Fig. 5.—Ejecución del programa 1. 


Existe otra instrucción que, se puede 
decir, es una variante de PLOT, Su sintaxis es: 


PLOTR, X,Y,C 


La R viene de RELARIVE (RELAIVO) y 
sirve para dibujar un punto en una posición de 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 


MODE 1 

CLS 

DIM X%(500) 
DIM YX(500) 
REM 


REM 
LOCATE 1,25 


RANDOMIZE TIME 
LET X0=0 
LET YO=0 
FOR I=1 TO 500 


PLOT X,Y,C 

LET X%(1)=X-X0 
LET Y%(1)=Y-YO 
LET XO=X 

LET YO=Y 
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la pantalla X, Y en color C relativa a la que nos 
encontramos. Pongamos un ejemplo. Vamos a 
suponer que hemos iluminado el punto que se 
encuentra en 100,100. Si queremos iluminar el 
que se encuentra en 110,100, podemos escri- 
bir: 

PLOT 110,110,1 


pero eso implica que necesitamos conocer el 
punto sobre el que se encuentra el cursor grá- 
fico. Hay veces en las cuales, no sabiendo en 
qué parte de la pantalla nos encontramos, sa- 
bemos que queremos dibujar un punto a cier- 
ta distancia del que acabamos de dibujar. Po- 
demos necesitar iluminar un punto 10 pasos 
más a la derecha y 3 más abajo del que aca- 
bamos de dibujar. Para ello utilizamos la ins- 
trucción PLOTR. Con ella podemos dibujar un 
punto que se encuentra a cierta distancia del 
último iluminado. Si tomamos el ejemplo ante- 
rior, sólo tenemos que escribir: 


PLOTR 10,-3,1 


Veamos a continuación una variante del 
programa 1 que hace lo mismo, pero utilizan- 
do la instrucción PLOTR. 


ASS OS lolOlOlOlOlSIOJOoOk 


* NOCHE ESTRELLADA *X 
AMOO OMJOIOIOIOIOJOJOK 


HORROR RHN a ld ad dd al dado 
* PROGRAMA DEMOSTRACION PARA VER EL x 
* USO DEL PLOT EN EL AMSTRAD. 
HOMO OOOO OOOO OOOO OOOO ROJO KIO Kk 


k 


REM ox DIBUJO DEL CIELO ESTRELLADO x*xkx 


PRINT "DIBUJANDO EL CIELO"; 


LET X=X0+INT(RND(1)*10) 
LET Y=YO+INT(RND(1)*x10) 
LET C=INT(RND(1)*3+1) 


IF X0+10>320 THEN LET XO=0 
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1310 
1320 NEXT 1 
1330 REM 


IF YO+10>200 THEN LET YO=0 


1340 REM *x*x* BUCLE DE RETARDO xxx 


1350 REM 


1360 FOR I=1 TO 1500 


1370 NEXT I 
1380 REM 


1390 REM **x* BORRADO DEL CIELO ESTRELLADO Ak: 


1400 REM 
1410 LET X0=0 
1420 LET YO=0 


1430 PRINT CHR$(7);CHR$(7); 


1440 LOCATE 1,25 


1450 PRINT "BORRANDO El. CIELO e 
1460 FOR I=1 TO 500 


IF XO+10>320 THEN LET X0=0 
IF YO+10>200 THEN LET YO=0 


1470 LET X=X0+X%(1) 
1480 LET Y=Y0+YX%(I) 
1490 PLOT X,Y,O 
1500 LET XO=X 

1510 LET YO=Y 

1520 

1530 

1540 NEXT 1 

1550 LOCATE 1,1 

1560 END 


Fíjese el lector en la parte del progra- 
ma que se encarga de borrar los puntos ante- 
riormente dibujados. 


Las instrucciones 
MOVE y MOVER 


., El comando MOVE nos sirve para colo- 
car el cursor gráfico en una cierta posición de 
la pantalla sin dibujar. Este comando sirve 
para que más tarde, cuando usemos la instruc- 
ción DRAW, definir cuál va a ser la coordena- 
da de la pantalla de la cual partimos. Su sin- 
taxis es la siguiente: 


MOVE X,Y 


donde X e Y son las coordenadas de la panta- 
lla donde nos queremos mover. 

La orden MOVER realiza la misma fun- 
ción que MOVE, pero el movimiento que rea- 
liza es relativo a donde nos encontramos. Por 
ello, si decimos MOVER 10,10, el cursor gráfi- 
co se moverá, siempre sin dibujar, diez pun- 
tos a la derecha y diez puntos hacia arriba. 
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Las instrucciones DRAW y DRAWR 


Nos permiten dibujar una línea recta 
desde el lugar donde se encuentra el cursor 
gráfico hasta las coordenadas que nosotros le 
digamos. Su sintaxis es: 


DRAW X,Y,C 


donde X e Y son las coordenadas absolutas de 
la pantalla hasta donde queremos que llega la 
línea recta. C es el color que queremos que 
tenga dicha línea recta. 

El origen de la línea lo podemos definir 
mediante un PLOT, PLOTR, MOVE, MOVER o 
desde la última instrucción DRAW o DRAWR 
realizada. Una vez trazada la línea, el cursor 
gráfico queda en el último punto de la línea en 
espera de un nuevo comando de gráficos. 

Como habrá adivinado el lector, la ins- 
trucción DRAWR dibuja, igualmente, líneas 
desde la posición actual del cursor hasta la 
otra posición de la pantalla cuyas coordena- 
das no sabemos, pero sí sabemos el desplaza- 
miento que existe entre la antigua posición y' 
la actual. 

Para ilustrar un poco lo que acabamos 
de ver, vamos a introducir en nuestro AMS- 
TRAD el programa 3. 


1000 REM AMOO oJok 

1010 REM * NEW YORK * 

1020 REM Aaa ooo ok 

1030 REM 

1040 REM Adelaida lalala lalala lalalala jala jala aia alajolololojok 
1050 REM * PROGRAMA DEMOSTRACION PARA VER EL USO DE x 
1060 REM * LOS COMANDOS MOVE Y DRAW EN EL AMSTRAD. Xx 
1070 REM ARSS OO OOOO RIOR RRA AA ARAN 
1080 REM 

1090 REM **x INICIALIZACION Y DIBUJO DE LA PANTALLA xxx 
1100 REM 

1110 MODE 1 

1120 CLS 

1130 LOCATE 1,25 

1140 PRINT "VISTA AEREA DE NEW YORK"; 

1150 LOCATE 1,1 

1160 PRINT CHR$(135);STRING$(38,131);CHR$(139) 

1170 FOR I=2 TO 15 

1180 PRINT CHR$(133);TAB(40);CHR$(138) 

1190 NEXT 1 

1200 PRINT CHR$(141);STRING$(38,140);CHR$(142) 

1210 LET XMIN=15 

1220 LET YMIN=15 - 

1230 LET*XMAX=300 

1240 REM 

1250 REM **x* IMPRESION DE MENSAJE PARA TERMINAR *x*x 
1260 REM 

1270 RANDOMIZE TIME 

1280 LOCATE 1,20 

1290 PRINT "PULSA ”P” PARA PARAR" 

1300 REM 

1310 REM *x** DIBUJO DE NEW YORK »kx 

1320 REM 

1330 LET X1=INT(RND(1)*XMAX+XMIN) 

1340 LET Y1=INT(RND(1)x100+YMIN) 

1350 LET X2=INT(RND(1)*XMAX+XMIN) 

1360 LET Y2=120 

1370 LET C=INT(RND(1)*3+1) 

1380 IF ABS(X2-X1)>80 THEN GOTO 1330 

1390 MOVE X1,Y1 

1400 DRAW X2,Y1,C 

1410 DRAW X2,Y2,C 

1420 DRAW X1,Y2,C 

1430 DRAW X1,Y1,C 

1440 REM 

1450 REM **x* LECTURA DEL TECLADO Y RETARDO x*xx*x 

1460 REM 

1470 FOR I=1 TO 100 

1480 IF INKEY$="P" THEN GOTO 1510 l 

1490 NEXT 1 

1500 GOTO 1330 

1510 CLS 

1520 END 
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Fig. 6.—Ejecución del programa 3. 


Las instrucciones WINDOW 
y ORIGIN 


Antes de continuar viendo los coman- 
dos de que disponemos en alta resolución, va- 
mos a ver dos nuevas instrucciones muy po- 
tentes. La primera de ellas, WINDOW, nos 
permitirá definir ventanas dentro de la panta- 
lla. Una ventana es una parte de la pantalla 
que actúa de forma independiente al resto de 
la pantalla. Podemos hacer que un listado sal- 
ga por una de las ventanas y no se meta por 
el resto de la pantalla. 

Para definir una ventana tenemos que 
decirle al ordenador qué número de ventana 
vaa ser la que vamos a crear y qué límites ten- 
drá. Su sintaxis es: 


WINDOW No. ventana,X1,X2,Y1,Y2 


El número de ventana es el número que 
asignamos a dicha parte de la pantalla y que 
será el que utilicemos para decirle al ordena- 
dor que realice operaciones sobre ella. X1 e 
Y1 son las coordenadas (en caracteres) de la 
esquina superior izquierda de la pantalla. X2 
e Y2 son las coordenadas, también en carac- 
teres, de la esquina inferior derecha de la ven- 
tana. Un ejemplo de definición de ventana po- 
dría ser: 


WINDOW +1,1,10,1,10 


con lo que tendríamos una ventana que se en- 
contraría en la esquina superior izquierda de 
la pantalla y que tendría una anchura y una al- 
tura de 10 caracteres. 

Una vez que hemos definido la ventana, 
para utilizarla no hay ningún problema, lo úni- 
co que tenemos que hacer es especificar qué 
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ventana vamos a utilizar. Por ejemplo, si que- 
remos imprimir la palabra HOLA, sólo tendre- 
mos que poner: 


PRINT F,1 “HOLA” 


para que aparezca en esa pantalla. Si lo que 
queremos es borrar sólo el contenido de la 
misma, y no el resto de la pantalla, podemos 
escribir: 


CLSF] 


Podemos hacer que cambie el color del 
fondo de dicha ventana con sólo escribir: 


PAPERF1,2:CLSA1 


Como el lector puede apreciar, las ven- 
tanas funcionan como una pequeña pantalla 
dentro de la pantalla. No tenemos que preo- 
cuparnos por que los mensajes que escriba- 
mos no entren en el ancho de la venta, ya que 
el propio ordenador se encarga de escribir lo 
que no quepa en la siguiente línea. 

Las instrucciones que podemos utilizar 
con las ventanas son las siguientes: 


CLS, INPUT, LINE INPUT, LIST, LOCA- 
TE, PAPER, PEN, POS, PRINT, TAG, TAFOFF, 
VPOS, WRITE. 


En todos ellos se coloca el número de la 
ventana al principio del comando, tal y como 
hemos visto con PRITN y con CLS, salvo en 
LIST, cuyo formato es: 


LIST No. línea inicial-No. línea final, No. de 
ventana 


Por otro lado, veamos cuál es la función 
de la sentencia ORIGIN. Con ella podemos de- 
finir una ventana de gráficos, y no de carac- 
teres, como hacemos con WINDOW, especifi- 
cando incluso cuál va a ser su centro. Su sin- 
taxis es: 


ORIGIN X,Y,X1,X2,Y1,Y2 


X e Y son las coordenadas que a partir 
de ese momento se tomarán como centro de 
las coordenadas. Por ejemplo, si escribimos en 
el ordenador: 


ORIGIN 100,100:PLOT 0,0 


lo que hará el ordenador será poner el origen 
de coordenadas en la posición 100,100 y, como 
ahora está es el origen, al escribir un punto en 
0,0 se ilumina el que antes era 100,100. 

Xl1 e Yl son las coordenadas, en 
PIXELS, de la esquina superior izquierda de 
ventana que estamos definiendo. 


X2 e Y2 son las coordenadas, en 
PIXELS, de la esquina inferior derecha de la 
ventana que estamos definiendo. 

Los cuatro últimos argumentos de esta 
instrucción son totalmente opcionales. Si no los 
ponemos, el ordenador entiende que toda la 
pantalla es la ventana. 


La instrucción CLG 


Con ella podemos borrar los gráficos 
que se hayan dibujado en la pantalla, sin 
borrar ninguna letra del texto. Mientras CLS 
borra todo, letras y gráficos, este comando 
sólo borra los gráficos. Su sintaxis es: 


CLG € 


donde C es el color que queremos que tome 
la pantalla tras haberla borrado. 


Las instrucciones TAG y TAGOFF 


Muchas veces, al trabajar en alta reso- 
lución, tenemos que imprimir mensajes. Con 
el AMSTRAD no tenemos ningún problema, ya 
que con la sentencia LOCATE podemos colo- 
car el cursor donde deseemos e imprimir lo 
que queramos. Pero hay veces que nos inte- 
resa escribir un mensaje o unos números en 
una posición intermedia entre dos caracteres 
o dos filas. Para ello, podemos utilizar la fun- 
ción TAG, que no necesita ningún parámetro. 

Si escribimos: 


LOCATE 10,10:PRINT “HOLA” 


el mensaje aparecerá en la columna 10 de la 
fila 10, pero si lo queremos imprimir en la co- 
lumna 10.5 de la fila 10.5, tendremos que ha- 
cer uso de la sentencia TAG. Para escribir en 
esta posición, sólo tenemos que hacer lo si- 
guiente: 


TAG:PLOT 76,76:PRINT "HOLA” 


La instrucción TAGOPF nos sirve para 
anular la función TAG. 


Las funciones TEST y TESTR 


Muchas veces, sobre todo al realizar 
gráficos en movimiento, nos interesa saber 
qué color tiene un determinado punto en un 
momento del programa. Para ello contamos 
con la instrucción TEST, a la cual le añadimos 
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las coordenadas del punto que queremos TES- 
Tear, El resultado será un número entre 0 y el 
número de colores permitido en el tipo de 
pantalla en que nos encontramos. 


A=TEST X, Y 


Por supuesto, TESTR realiza la misma 
función, pero mirando el punto que se encuen- 
tra a una cierta distancia X e Y del punto don- 
de se encuentra el cursor gráfico. 


Las funciones XPOS e YPOS 


Estas dos funciones nos indican, en 
cualquier momento, la posición del cursor grá- 
fico en la pantalla en coordenadas reales. Esto 
significa que si hemos definido un nuevo ori- 
gen, con ORIGIN, si el cursor gráfico está en 
dicho origen, al preguntar por XPOS e YPOS, 
el ordenador nos dará sus coordenadas rea- 
les, y no las nuevas. 


Algunas deficiencias en el BASIC 
del AMSTRAD 


A la hora de ponernos a dibujar con 
nuestro AMSTRAD, echamos en falta funcio- 
nes como CIRCLE (para dibujar arcos, círcu- 
los y elipses) y PAINT (para rellenar figuras 
cerradas). No nos queda más remedio que 
realizar nosotros mismos estas funciones. En el 
caso del CIRCLE es muy sencillo y se puede 
hacer una rutina que nos dibuje cualquier tipo 
de círculo, arco o elipse. En el caso de la sen- 
tencia PAINT es más complicado, porque rea- 
lizar un programa en BASIC que me rellene 
cualquier figura cerrada, por compleja que 
sea, de un cierto color, sería muy lento. Por 
ello, se propone al lector que él mismo cree 
sus propias rutinas de PAINT según sus nece- 
sidades en cada momento. 


A continuación aparece un programa 
que podemos utilizar para dibujar círculos. Lo 
único que hay que mandarle al programa es 
el centro, el radio y un número entre 0 y 2 que 
significa lo siguiente: 


O Dibujar un círculo. 
1 Dibujar una elipse. 
2 Dibujar un arco de circunferencia. 


En el caso de que mandemos en uno (1), 
también tendremos que decir qué relación 
hay entre el radio horizontal y el vertical. 
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Si lo que mandamos es un dos (2), en- 
tonces, aparte de mandar la relación entre los 
radios, habrá que decir en qué ángulo (en gra- 
dos) empezamos a dibujar y en qué átigulo 
(también en grados) terminamos. Las varia- 
bles utilizadas son las siguientes: 


9000 
9010 
9020 
9030 
2040 
9050 
9060 
2070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 
9190 
9200 
$10 
9220 
9230 
9240 
9250 
9260 
9270 
9280 
9290 
9300 
9310 
9320 
9330 
9340 
a 2350 
9360 
9370 
9380 
9390 
9400 
9410 
9420 
9430 
9440 
9450 
9460 
9470 
9480 
9490 
9500 
9510 
9520 
9530 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


Coordenada X del centro. 
Coordenada Y del centro. 
Radio del círculo. 
Relación entre radios. 
Angulo del que partimos. 
Angulo al que llegamos. 


¡FS 
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ISSO S OOOO JJOO IOIOIOIO OK 
k k 
*k RUTINA PARA DIBUJAR CIRCULOS, ARCOS Y ELIPSES EN EL AMSTRAD  * 
A AAA AAA A A kx 
* xk 
k VARIABLES QUE HAY QUE PASARLE AL PROGRAMA k 
O o a A E O O IS St * 
k * 
*k X = COORDENADA X DEL CENTRO DE LA CIRCUNFERENCIA, ARCO O ELIPSE * 
* Y = COORDENADA Y DEL CENTRO DE LA CIRCUNFERENCIA, ARCO O ELIPSE x* 
k R= RADIO DE LA CIRCUNFERENCIA, ARCO O ELIPSE k 
k $ = EXCENTRICIDAD DE LA ELIPSE 2 
* SW = 0,1,2 SEGUN LA SIGUIENTE TABLA k 
k O = CIRCULO * 
k 1 = ELIPSE k 
*. 2 = ARCO k 
* Al = ANGULO DESDE EL QUE EMPEZAMOS A DIBUJAR EL ARCO * 
* A2 = ANGULO HASTA EL QUE DIBUJAMOS EL ARCO * 
k k 
IEEE EEE EEES 


IP BWN=0 THEN GOSUB $250 
IF SW=1 THEN GOSUB 9370 
IF SW=2 THEN GOSUB 9640 
RETURN 


REM 
REM 
REM 
REM 
REM 
FOR 


AMOROSO OOOO jOROJOk 


* DIBUJO DE CIRCULOS x* 
AMOO Olalla iÍaK ok 


I=0 TO 6.5 STEP .2 


LET XO=X+R*COS(I) 
LET YO=Y+R*XSIN(I) 
IF I=0 THEN PLOT XO,YO 
DRAW XO, YO 
NEXT 1 
RETURN 


REM 
REM 
REM 
REM 
REM 
LET 
LET 


EEES 


* DIBUJO DE ELIPSES * 
ORO IO OOOO ION 


Z1=Rx*xS 
Z2=R/S 


IF 22>21 THEN LET SS=3*xABS(Z1/Z2):GOTO 9460 


LET 
FOR 


35-4BS(22/21) 
X0=0 TO Z1 STEP SS 


LET YO=SQR(Z2*2*(2172-X0*2)/Z1”2) 


IF XO=0 THEN PLOT X+X0,Y+YO 
IF XO=0 THEN PLOT X-X0O,Y-YO 
IF XO=0 THEN PLOT X+X0,Y-YO 
IF XO=0 THEN PLOT X-XO,Y+YO:GOTO 9560 


PLOT X1,Y1:DRAW X+X0, Y+YO 
PLOT X2,Y2:DRAW X-XO, Y-YO 
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Fig. 7. 


9540 
9550 
9560 
9570 
9580 
9590 
9600 
9610 
9620 
9630 
9640 
9650 
9660 
9670 
9680 
9690 
9700 
9710 
9720 
9730 
9740 
9750 
9760 
9770 
9780 
9790 


PLOT X1,Y2:DRAW X+X0, Y-YO 
PLOT X2,Y1:DRAW X-XO, Y+YO 
LET X1=X+X0 
LET X2=X-X0 
LET Y1=Y+YO 
LET Y2=Y-YO 


NEXT XO 


PLO 
PLO 
RET 
REM 


T X1,Y1:DRAW X1,Y2 
T X2,Y1:DRAW X2,Y2 
URN 


REM Asado ok 


REM 


* DIBUJO DE ARCOS x 


REM so lOO lolo look 


REM 
LET 
LET 
LET 
IF 


=A1 
B=A2 
o E 
A2<A1 THEN LET SS=-SS 


FOR I=A TO B STEP SS 


NEX 


LET XO=X+R*COS(I) 

LET YO=Y+R*SIN(1) 

IF TI=A THEN PLOT XO, YO 
DRAW XO, YO 

AD 


RETURN 
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TRUCOS Y RUTINAS BASICAS 


NA vez que hemos visto la 
alta resolución en el IBM pc 
y compatibles, estamos en 
disposición de entender el 
programa que se da a conti- 
nuación. Con él el usuario 
podrá dibujar sus propias 
pantallas, o trozos de panta- 
lla, para usarlas como presentación a sus pro- 
gramas. 


Este programa nos permitirá dibujar 
puntos, rectas, rectángulos, etc., con unos po- 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
; REM 
KEY 
FOR 


o RRR 


un 


S $ 


338 


les y 


x 
* 
* 
* 
* 
+ 
* 
ES 
y 
* 


ono 


q 


* INICTALIZACTON DEL PROGRAMA «* 


OFF 

ET=i TO 10 
KEY(RT) OFF 
NEXT RT 

SCREEN 1 

COLOR 16,1,,,3 
IDTH R0 

LET X=100 

LET Y=100 

LET X1=9 

LET Yi=0 

LET $3-1 

DIM 
GOSUB 160 


cos comandos. Por otro lado, al estar hecho en 
BASIC, permite que el propio lector modifique 
el programa a su gusto y según sus necesida- 
des. ' 

Al principio del programa el ordenador 
nos preguntará qué tipo de resolución horizon- 
tal queremos. Nos propone dos opciones, una 
de 320 puntos por línea y otra de 640. En el pri- 
mero de los tipos el ordenador nos permite 
disponer de tres colores distintos para la tin- 
ta. En el segundo tipo de pantalla, a cambio 
de tener más resolución, sólo tenemos un co- 
lor de tinta. 


HORROR JONAS ORO OOOO ollo lo lalolojalolok 


GGG-. RRRR 
GR 


AAA —FFFFF III CCC. 555 


GGG R A 555 


XK AA AA XA 


FOROS LORO RJ IO OA OOO alla alo lalola Olalla lalola lololalok 


IOPJOJO NOR ORIO RETRO ROJO OO ollo lalalala alla lalalala alolallolokalolok 


depnbprnbbdobicEe REALIZADO POR FRANCISCO MORALES GUERRERO AXARARORIOOKK 
FORERO JO OO OOO ROO ROO ao lalalala o ololokok 


AI batata toute datada dae de dede da de 
APIRDANARA NACEN (0) EDICIONES SIGLO CULTURAL, 
III IA lolo llo lalalala lalalala jo lalookoK 


1987 ANO Hollololok 


A%(10000),B%(10000), C%(3000),D%(2000),E%(2000) 
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TRUCOS Y RUTINAS BASICAS 


48 CL5 

47 LOCATE 21,1 

48 INPUT “Numero de puntos en X (320 0 640) = "¡A 

49 TF A-+320 AND Ac>640 THEN 47 ELSE IF A-=320 THEN WIDTH 40:LET SW=1 ELSE LET SW 
=2 

50 REM 

51. REM MARIO lolojolVlololdjoloK 

52 REM * PROGRAMA PRINCIPAL x 

53 REM RM Ojo 

54 REM 

55: LED: PP=0 

56 LET II=1 

57 COLOR PP, II 

58 CLS 

59 GOSUB 92 

60 GET (0,0)-(319*SW, 199), B% 

61 P=POINT(X, Y): IF .P<>0; THEN P1=0 ELSE Pi=1 

62 PSET(X, Y),P1 

83 AS=INKEYS: IF A$="" THEN 63 

64 A=ASC(A$) 

65 IF LEN(A$)=1 THEN 70 

66 IF MID$(A$,2,1)="K" THEN PSET(X, Y),P:X=X-SS-88*(X-S5<0):GOTO 61 

87 1F MID$(4$,2,1)="M" THEN PSET(X, Y),P:X=X+53+S585*x(X+85>319*SW) : GOTO 61 

68 IF MID$(A$,2,1)="H" THEN PSET(X, Y),P:Y=Y -SS-SS*(Y-SS<0):GOTO 61 

69 IF MID$(A4$,2,1)="P" THEN PSET(X, Y),P:Y=Y+S5+55*(Y+85>191):GOTO 61 

70 IF A=83 OR A=115 THEN M$="ESCALA ACTUAL ="+STR$(S5S)+" 1 
NTRODUZCA NUEVA ESCALA (1-9)":LO=2;MA$="9":MI$5="1":GOSUB 116: IF VAL(D$)>9 AND D$ 
<>"" THEN 70 ELSE 5S=VAL(D$) 

71 IF A=80 OR A=112 THEN PSET(X, Y), I1:X1=X:Y1=Y:SWW=1:GOTO 61 

72 IF A=79 OR A=111 THEN PSET(X,Y),PP:X1=X:Y1=Y: SWW=2:GOTO 61 

73 IF A=67 OR A=99 THEN LO=2:MA$="4":MI$="0":M$="COLOR":GOSUB 116: IF VAL(D$)>4 A 
ND D$<>"" THEN 72 ELSE II=VAL(D$) 

74 1F A=78 OR A=108 THEN PSET(X,Y),P:GOSUB 92:LINE(X1,Y1)-(X, Y), -ITx(SWW=1)-PPx( 
SWW=2):X1=X: Y1=Y:GOTO 61 

75 1F A=70 OR A=102 THEN PSET(X, Y), P:GOSUB 92:DD=POINT(X,Y):FOR I=X TO 319*SW: IF 
POINT(1,Y)<>DD' THEN DD=POINT(1I,Y):PAINT(X,Y),II,DD:GOTO 61 ELSE NEXT I:GOTO 61 
76 IF A=27 THEN PSET(X,Y),P:GOSUB 98:GOTO 61 

77 IF A=75 OR A=107 THEN PSET(X,Y),P:GET (0,0)-(319,191),BX:GOTO 61 

78 TF A=74 OR A=106 THEN PSET(X,Y),P:PUT (0,0),B%,PSET:GOTO 61 

79 IF A=81 OR A=113 THEN PSET(X,Y),P:M$="( TERMINAMOS EL PROGRAMA ? (S/n)":MA$=" 
2 ":MI$="A":LO=2:GOSUB 116:IF D$<>"n" AND D$<>"N" AND D$<>"S" THEN 79 ELSE IF D$= 
"S" THEN 139 

80 IF A=90 OR A=122 THEN PSET(X,Y),P:M$="( BORRAMOS LA PANTALLA 7? (S/n)”:MI$="A" 
:MA$="2":LO=2:GOSUB 116: IF D$<>"N" AND D$<>"n" AND D$<>"S” THEN 80 ELSE IF Ds$="S 
' THEN CL3S:GOTO 61 

81 IF A=68 OR A=100 THEN PSET(X,Y),P:GOSUB 92:N3="DIRECTORIO":GOSUB 153:GOSUB 14 
5:PRINT "PULSA UNA TECLA”:A$=INPUT$(1):GOSUB 98:GOTO 61 

32 IF A=66 OR A=98 THEN PSET(X,Y),P:GOSUB 92:N$="BORRAR UN PROGRAMA":GOSUB 153:G 

OSUB 145: INPUT “NOMBRE DEL FICHERO = ",A$:KILL A$:GOSUB 98:GOTO 61 

83 IF A=82 OR A=114 THEN PSET(X,Y),P:GOSUB 92:N$="RENOMBRAR UN PROGRAMA":GOSUB 1 
53:GOSUB 145: INPUT "NOMBRE ANTIGUO DEL FICHERO = ",A$:PRINT: INPUT"NOMBRE MODERNO 
DEL FICHERO = ",B$:NAME A$ AS B$:GOSUB 98:GOTO 61 

84 IF A=77 OR A=109 THEN PSET(X,Y),P:DEF SEG=%HB800:M$="NOMBRE PARA GRABAR = ":M 

A="z":MI$="A":LO=12:GOSUB 116:1F D$="" THEN GOTO 61 ELSE BSAVE D$,0,16300:GOTO 
61 

85 IF A=78 OR A=110 THEN PSET(X,Y),P:DEF SEG=%HB300:M$="NOMBRE PARA GARGAR = ":M 

A$="z":MI$="A":LO=12:GOSUB 116: 1F D$="" THEN GOTO 61 ELSE BLOAD D$:GOTO 61 

86 IF A=88 OR A=120 THEN PSET/X, Y),P:GOSUB 104:LOCATE 22,1:PRINT "X="5X3" ";"Y= 
"5 Y:LOCATE 23,1:PRINT "PULSA UNA TECLA: ”"A$=INPUT$(1):GOSUB 110 

87 IF A=63 THEN PSET(X, Y),P:GOSUB 160 

88 IF (A=87 OR A=119) AND SSW=0 THEN PSET(X, Y),P:X2=X:Y2=Y:SSW=1:GOTO 61 

89 IF (A=87 OR A=119) AND SSW=1 THEN PSET(X, Y),P:GET (X2,Y2)-(X, Y), DX: AX=X-X2: AY 

=Y-Y12:X=X2: Y=Y2:GET (X, Y) -(X+AX, Y+AY), EX: 55W=0:GOTO 191 

90 PSET(X,Y),P:GOTO 61 

91 REM 
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92: REM dado lolalolalolololalojolok 

93 REM * ALMACENA PANTALLA x* 

94 REM aRRSIddSSlO lolo lojolok 

95 REM 

98 GET (0,0)-(319*SW, 199), A%: RETURN 

97 REM 

98 REM ada dolo laloROIOJOjOK 

99 REM * RECUPERA PANTALLA * 

100 REM Aaa oooO look 

101 REM 

102 PUT (0,0), A%, PSET: RETURN 

103 REM 

104 REM AMS lolo IO RORRok 
105 REM * ALMACENA 3 LINEAS INFERIORES x*x 
108 REM ASNO o lalalala lolo jlook 
107 REM 

108 GET (0,160)--(319*SW, 199), C%: RETURN 
109 REM 

110 REM ASS SS Olalla lalola okok 
111 REM * RECUPERA 3 LINEAS INFERIORES. * 
112 REM ASS SOS lolo kk 
113 REM 

114 PUT (0,160),C%,PSET: RETURN 

115 REM 

118 REM Sold ladldlO ollo lololok 

117 REM * ENTRADA DE DATOS x 

118. REM AMOO alo joJo lolo kk 

119 REM 

120 GOSUB 104 

121 LOCATE 21,1 

122 PRINT SPC(120xSW); 

123 LET D$="" 

124 LET LO=0 

125 LOCATE 22,1 

126 PRINT M$;" : ";CHR$(29); 

127 C$=INKEYS q 
123 IF C$="" THEN GOTO 127 y 
129 IF C$=CHR$(8) AND LO>0 THEN LO=LO-1:D$=LEFTS(D$, LO):PRINT CHR$(29);"_ ";CHR$ 
(29);CHR$(29); 

130 IF C$=CHR$(13) THEN GOTO. 137 

131 IF C$=" "OR C$="." THEN GOTO 133 
132 IF. C$>MAS OR C$<MIS THEN 127 

133 PRINT C$;"_";CBR$(29); 

134 LET D$=D$+C% 

135 LET LO=LO+1 

136 IF LO<>LO THEN GOTO 127 

137 PRINT ” “:GOSUB 110: RETURN 

133 REM 

139 REM aaa lolo lo joio jo ioK 

140 REM * SALIDA DEL PROGRAMA x* 

141 REM Ada lolo ojala k 

142 REM 

143. GOSOR 104:LOCATE 22. 1:PRINT “PULSA [ESCAPE] PARA SALIR":PRINT "OTRA TECLA CO 
NTINUAR”:Ab=INPUT$(1):1F ASC(A$)=27 THEN CLS: SYSTEM ELSE GOSUB 110:GOTO 61 
144 REM 

145 REM ooo odo 

146 REM * DIRECTORIO «+ 

147 REM AMOO OOOO Jo 

148 REM 

149 CLS:LOCATE 1,1:PRINT N$;" DE LA UNIDAD O 
150 FILES D$+":*.x":PRINT:PRINT 

151 RETURN 

152 REM 

TS REM OOOO OOOO IR ORIO 

154 REM * PEDIE UNIDAD DE DISCOS x 

18% REM td Rd dd O OR RIOR 
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TRUCOS Y RUTINAS BASICAS 


156 REM 

157 PSET(X, Y), P:M$=N$+" DE LA UNIDAD = ":MA$="2":MIs="A":LO=2:GOSUB 116:IF LEN(D 
$372 THEN 157 ELSE IF D$="" TBEN D$="A" 

158 RETURN 

152 REM 

180 REM OOOO o 

161 REM + INSTRUCCIONES * 

187 REM FFAA AAA AAA AA 

153 REM 


184 


165 


GOSUB 92:CLS:LOCATE 1,1:PRINT " 
PRINT:PRINT "<Q> 


COMANDOS DEL PROGRAMA SUPERGRAFICOS. " 
Finaliza sesion” Ñ 


rasa: pa + A Dibuja un punto (PSET)" 

EST PRINTONROS TE Borra un punto (PRESET)" 
COBTERINT E ia Traza una linea (LINE)" 
ABURREN DR a Visualiza coordenadas" 
ROSPRINT "Mora Graba pantalla (SAVE)" 
RN DEAN Carga pantalla (LOAD)" 

IET DAN DL Dias E Graba pantalla en memoria" 

IPD PRINTS 2 . Carga pantalla de memoria” 
I2AIPRINO “Bn . Áárula la ultima accion (DEL)" 
rd it Borra la pantalla (CLS)" 
LFELSPRIND MED PBrrra un fichero (KILL)" 
EN Dl E a Ed Muestra el directorio (FILES)" 
APRA DA AR A E Renombra un fichero (RENAME)"” 
A E Varia la velocidad del cursor" 
380 PRINT “:C Cambia color de tinta (COLOR)" 
IP TRENDA E Colorea una zona (FILL)" 
ISLPRINT MEA Copia parte del dibujo (WIND)" 
A Muestra esta pantalla" 

184 PRINP "-2,34,8,28: Mueven el cursor" 

185 PRINT:PRINT "PULGA UNA TECLA"; :A$=INPUT3(1):GOTO 98 
188 REM 

187 REM dolo da lolaIOIOROlololojoRolok 

183 REM * CREACION DE TNA VENTANA xx 

189 REM RR OOO OOOO IOIOIOIOIOIOjOK: 


REM 


AS7INKEYS:TF A$="" THEN 191 


192 IF A$-CHR4(13) THEN GOTO 61 
193 IF MIDS(At.2,1)="K" THEN PUT 


IF MID3(A$.2,1)="M" THEN PUT 


1F MIDS(A$,2,1)="H" THEN PUT 
IF MID$(A$,2,1)="P" THEN FUT 
GOTO 191 


GET (X, Y) -(X+AX, Y+AY), TY: PUT 


Fig. 1. Resumen de comandos. 


Veamos ahora qué comandos nos facili- 
ta el programa y cómo utilizarlos: 


Q. FINALIZA SESION. Salimos del pro- 
grama del BASIC y nos volvemos al sistema 


(X, Y), E%, PSET 
(2, Y),E%, PSET 


(10), DW. SET: 
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¿X=X-85-SS*(X-S55<0):GOTO 198 
¡XFX 4884884 (X4+S8>319x*SW-AX) : GOTO 1 


(X, Y),E%, PET: Y=Y-53-S8x(Y--55<0):GOTO 198. 
(X, Y), EX, PSET 


¿Y=Y+S5+55*+(Y+55>199-AY):GOTO 198 


GOTO 191 


operativo. El ordenador nos pide confirmación 
antes de hacerlo. 

P. DIBUJA UN PUNTO, Ilumina el píxel 
sobre el que se encuentra el cursor gráfico. Si 
dicho punto ya está iluminado, no hay ningún 
cambio. El color de dicho punto coincidirá con 
el del color que se esté usando en ese momen- 
to, 

O. BORRA UN PUNTO. Nos borra el 
punto sobre el que está situado el cursor grá- 
fico. Lo pone del color del papel. 

L, TRAZA UNA LINEA. Nos dibuja una 
línea desde el último punto donde se dibujó 
un punto (o se trazó una línea) hasta la posi- 
ción actual del cursor gráfico. Si se usó la P 
para trazar el primer punto, la línea dibujará. 


Si se utilizó la O, entonces la línea borrará a 
su paso. 

X. VISUALIZA COORDENADAS. Nos 
permite ver en la parte inferior de la pantalla 


las coordenadas actuales (X e Y) del cursor. 


gráfico, 

M. GRABA PANTALLA, Para grabar la 
pantalla en disco. Nos preguntará el nombre 
que queremos darle. Hay que incluir la exten- 
sión si no queremos que el ordenador le pon- 
ga la extensión. 

N, CARGA PANTALLA. Nos permite 
leer y cargar una pantalla almacenada en una 
variable de forma que, si seguimos trabajan- 
do en la pantalla y queremos volver a ver 
cómo teníamos las cosas antes de hacer cier- 
tas modificaciones, podemos recuperarla. 

J. CARGA PANTALLA DE LA MEMO- 
RIA. Nos muestra la pantalla que habíamos al- 
macenado en memoria mediante la opción K. 

ESC. ANULA LA ULTIMA ACCION. 
Pulsando la tecla ESCAPE anulamos la última 
acción que hayamos realizado y volvemos a 
ver la pantalla como se encontraba hace unos 
instantes. 

Z. BORRA LA PANTALLA. Borra todo 
el contenido gráfico de la pantalla. Esta opción 
pide confirmación antes de ejecutarse. 

B. BORRA UN FICHERO. Borra cual- 
quier fichero que se encuentre en el disco. 
Nos imprime el directorio antes de pedirnos 
e; nombre. Hay que incluir la extensión del fi- 
chero a borrar. 

D. MUESTRA DIRECTORIO. Nos pide 
la unidad de la cual queremos ver el directo- 
rio. 

R, RENOMBRA UN FICHERO. Es una 
opción muy útil para renombrar aquellos ar- 
chivos de pantallas que, por error, al no darle 
extensión, tienen extensión .BAS. Nos muestra 
el directorio de la unidad de disco que noso- 
tros le digamos. 

S. VARIA LA VELOCIDAD DEL CUR- 
SOR. Para hacer que el cursor gráfico se mue- 
va más deprisa por la pantalla. El valor de la 
velocidad puede variar entre uno (1) y nueve 
(9). 

C. CAMBIA EL COLOR DE LA TINTA. 
A partirdel momento en que cambiemos el co- 
lor de la tinta, todo lo que dibujemos aparece- 
rá con el nuevo color. Esta opción no causa 
ningún efecto cuando estamos en el modo de 
640 puntos por línea. 

FP, COLOREA UNA ZONA, Nos permi- 
te llenar de color una zona que esté cerrada, 
como puede ser un rectángulo. Para hacerlo, 
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hay que colocar el cursor gráfico dentro de la 
zona cerrada a colorear y pulsar la tecla F. Los 
límites de la zona a colorear sólo pueden ser 
de un color, 

W. COPIA PARTE DEL DIBUJO. Nos 
permite copiar una parte de la pantalla en otra 
parte de la misma. Para ello tenemos que co- 
locar el cursor gráfico sobre la esquina supe- 
rior izquierda de la parte a copiar y pulsar la 
W. A continuación nos trasladamos a la parte 
inferior derecha de la zona a copiar y volve- 
mos a pulsar la tecla W. A partir de este mo- 
mento, y usando las teclas del cursor, pode- 
mos mover esta zona por la pantalla y colocar- 
la donde deseemos. Para fijarla en una parte 
de la pantalla no hace falta nada más que pul- 
sar la tecla ENTER. 

? Muestra una pantalla con un resu- 
men de comandos. 


Fig. 2. Ejemplo de pantalla. 


Para mover el cursor gráfico por la pan- 
talla se utilizan las teclas del cursor que están 
en el teclado numérico. Como dicho teclado 
tiene dos funciones distintas, tiene que estar 
de forma que al pulsar las teclas del cursor 
fuera del programa el cursor se mueva. La luz 
de NUM LOCK ha de estar apagada. 


Fig. 3. Uso de la función WINDOW ( W). 


EL TALLER DEL HARDWARE 


A entrada de datos a través 
de la pantalla es, sin duda, 
una de las más atractivas 
para todo ordenador perso- 
nal. Si observamos cómo se 
produce físicamente la re- 
presentación de caracteres 
y gráficos en la pantalla, ve- 
remos que se efectúa mediante la activación 
de puntos de mayor o menor intensidad, so- 
bre un barrido uniforme. Puede verse en la fi- 
gura cómo se lleva a cabo el barrido del rayo 
de electrones sobre la pantalla que, al estar 
compuesta de sales de fósforo, transforma la 


intensidad de los electrones en emisión secun-. 


daria luminosa. La emisión luminosa existe in- 
cluso en las zonas de la pantalla que aparecen 
oscuras. En las pantallas de color, siempre que 
exista un fondo distinto del negro, la emisión 
resulta fácilmente detectable mediante algu- 
no de los dispositivos sensibles a la luz, como 
las resistencias LDR y los fotodiodos. 


LINEA VISIBLE 


RETORNO NO VISIBLE 


Fig. 1. Barrido de la pantalla. 
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Conviene hacer una distinción inicial 
entre los dos procedimientos básicos para de- 
tectar un punto luminoso en la pantalla. El mé- 
todo rápido detecta la emisión luminosa del 
primer barrido que se produzca delante del 
sensor después de haber activado un pulsa- 
dor, y el método lento, mediante el barrido 
programado de un carácter por la pantalla, pa- 
rado en cada posición durante un tiempo su- 
ficiente, hasta detectar que el lápiz se encuen- 
tra encima de un punto determinado. 

Para hacer el método rápido se deben 
usar dispositivos sensibles a la luzde caracte- 
ríticas muy rápidas y muy «sensibles. Para 
comprender la dificultad del problema vea- 
mos los valores necesarios para su funciona- 
miento. La duración del barrido de una línea 
en la pantalla, tanto en sistema PAL como en 
NTSC, que son los que normalmente se uti- 
lizan en las pantallas de color de los ordena- 
dores personales, es de 64 microsegundos. De 
este tiempo hay que descontar la duración del 
pulso de sincronismo y unos espacios denomi- 
nados “porches”, que resultan necesarios para 
el centrado de la imagen, se han de barrer en 
unos 50 microsegundos. El número de puntos 
visibles físicamente en la pantalla en una línea 
es de 256 a 640, por tanto, el tiempo para cada 
punto es de unos 80 a 200 nanosegundos. Si 
pretendemos detectar la presencia de un pun- 
to iluminado de esta duración es necesario 
que el elemento sensible alcance un valor 
apreciable y tenga la rapidez suficiente para 
poder indicar el momento en que se produce 
el paso. 

Algunos ordenadores personales, como 
el IBM-PC, presentan una entrada para lápiz 
óptico, en el adaptador de color y gráficos, 
que llega hasta una de las patillas del contro- 
lador de vídeo MCM6845, Este circuito inte- 
grado del controlador de vídeo posee interna- 
mente la circuitería necesaria para realizar la 
lectura de la entrada por lápiz óptico. Esta cir- 


EL TALLER DEL HARDWARE 


cuitería consiste en un contador que se en- 
cuentra parado y que se conecta a la entrada 
del reloj de activación de barrido al cerrarse 
el pulsador de lectura y producirse el comien- 
zo de barrido del cuadro. El contador se de- 
tiene si se produce pulso de entrada del lápiz 
óptico. El contador realiza internamente el 
barrido de todas las columnas de una fila y su- 
cesivamente todas las filas, desde arriba hasta 
abajo. Al terminar una exploración completa 
sin activación, vuelve a empezar la cuenta. 

Se puede leer el contador para conocer 
en qué fila-columna se produjo la activación 
del lápiz. El programa deberá estar consultan- 
do el bit de estado para saber cuándo se de- 
tiene el contador. Generalmente el lenguaje 
propio de la máquina posee instrucciones para 
realizarlo automáticamente. 

La circuitería necesaria para el lápiz se 
explica a continuación. Es necesario un diodo 
PIN muy rápido, a ser posible con lente con- 


centradora. El amplificador debe tener un: 


tiempo de subida muy pequeño, para poder 
captar la señal luminosa de la pantalla. El pul- 
sador indicador de lectura puede colocarse 
sobre el cuerpo del lápiz para comodidad o 
bien integrarse en la punta para que se active 
al presionar sobre la pantalla. 


CARCASA 


SENSOR PERFORACION 


Fig. 2. Punta del lápiz óptico. 


10 REM TESTFENM 


SENSOR 


LENTE 


CARCASA 


Fig. 3. Esquema práctico de montaje con lente concentradora. 


Observando la señal de salida del sen- 
sor óptico, veremos una secuencia de pulsos, 
correspondiente a las líneas que pasan por de- 
lante de la lente del lápiz luminoso y que que- 
dan dentro de su campo de visión. El conta- 
dor se parará ante la primera de ellas que so- 
brepase el umbral fijado. 

El programa necesario para leer la po- 
sición del punto donde se encuentra el lápiz y 
que puede utilizarse como test es, por ejem- 
plo, para el caso del IBM-PC: 


SALIDA 
COMPARADOR 


FIJADOR DE NIVEL 


Fig. 4. Circuito de lectura. 


20 REM PRUEBA DE LAPIZ OPTICO. PARA CALIBRACION 


40 XA6=0 1 YA=0 
530 KEY 0FF 
50 CLS 


30 REM PARA PEN RÁPIDO Y IBM-FC 


70 UN PEN GUSUB 1802 REM INOICACION DE ENTRADA POR LAPIZ 
g0 SLREEN 1: REM GRAFICOS DE MEDIA RESOLUCION 


99 COLGURK 4,1 


100 FRINIT "PRUEBA DE LAPIZ OPTICO" 

110 PKINT "PULSE SOBRE LA PANTALLA" 

120 FEN UN: REMO ACTA ENTRADA POR LAPIZ 
1350 EUR l=1 TC 10000: KEM BUCLE 


140 AsATI 
150 NEAI 


180 CL5 2 PRINTS "1ES1 TERMIMADO" 


1/0 ENb 


1/5 KEf RUTINA DE LECTURA LADA VEZ UUE SE PULSE EL LAPIZ 


180 x=FEM17: REM LEE LAS CUORDENADAS 

174 y=FHENCE) 

200 LINE AX. TITAAR 104 Li REMO PINTA LINEA 
L1O0 XASA > YASY ) 

220 LULATE ¿41 FRI AVG 

230 KELUREN 


También se incluye un programa senci- lápiz óptico para la creación y edición de grá- 
llo de demostración de las posibilidades del ficos en la pantalla. 


10 REM JUEGOPEN : , 
¿0 KEN DEMOSTRACIÓN DEL EMPLEO DE LAFIZ OPTICO RAPIDO 
23 REM FARÁ IBM-FC 

30 DEFIN)T ALDIM ALZOO, 2),CRUZ (100) 

40 SC=I3LIMITEX=3191L.IMITEC=290:LIMITEY=190 

43 COLR=0: COLRF=1 

50 SOREEN SC, O0ry=2:A(1, 1)=10:411,2)=10:A11,1)=10 

95 AZ, 2)=10:C0L5S 

539 REN ACTIVA TECLAS DE FUNCION Y CURSORES 

60 KEY OFF: FOR 1=1 TO 14: KEY(I) ON: NEXT 1 

70 ON KEY(1) GOSUB 360:0N KEY(2) GOSUB 400 

80 ON KEY (3) GOSUB 460:0N KEY(6) GOSUB 490 

83 ON KEY) GUSUE 7/20 

90 ÓN KEY (8) GUSUB 640:0N KEY(10) GOSUB 670 

93 ON KEY114) GOSUB 600 

100 ON KEY(117 GOSUB 420:0N KEY(12) GOSUB 520 

105 ON KEY(13) GUSUB 560 

VLOVLINE 0053) 74105507 LINE: (542) 0579) 51 

120 GET (1.1)-1%9,9),C0RUZ 

130 ON FEM GOUSUB 200 

140 GOSUE 300: REM PONE PANTALLA INICIAL 

1150 FEN Oh KEM ACTIVA LAPIZ 

160 S$=IMKEY$: 1F S5$="" THEN 160 

170 1 Sé$="F" OR 5$="f" THEN WIDTH 80:END:* TERMINACION 
130 IF S$="1" THEN GOSUB 750: * INVIERTE IMAGEN 

170 GOTO 160 

200 REM ENTRADA DE POSICION POR LAPIZ OPTICO 

210 FOR I=1 TO 2:1A(, 1)=PEN(1):NEXT 1 

21% 1F A403,2)>190 THEN 4(9,2)=190 

220 1F A(9,2)<4 THEN 41(I,2)=4 

230 IF AJ,19<9 PHEN A(d,1)=4 

240 1F AY, 1) OLIMITEX-4 THEN A(J, 1)=LIMITEX-4 

2350 PI (A, 1)-4,A(J,2)-4) CRUZ, XOR 

260 PUT (A19-1,1)-4,A41I-1,2)-4), CRUZ, XOR 

270 J=J+1 

230 RETURN 

290 REM PONE LA PANTALLA EN BLANCO 

300 CLS 

S10 LINE (0,0)-(LIMITEX.LIMITEY),COLRF,BF 

320 LOCATE ¿3,1 

330 PRINT. "1-BURRA, 2-L INEA, S-CTRO, 7-RELL,8=RECT"3 

340 KEVURN 

3590 REM BORRA LINEA ANTERIOR Y CAMBIA EL APUNTADOR 

360 LINE fátd=i, 1). Ad 1,2) 040402), 1):44(I-2),2)), COLRE > 
3/1M6AF HZ THEM RETURN ELSE 1=J-1 y 

3390 RETURN , , 

370 REM DB! HECTA ENTRE LOS ULTIMOS PUNTOS DEFINIDOS 
400 LINE (AtI-1, 112, Atg-1,2))-(1A((0-2),1),41(4J-2),2)) , COLR 
410 KELUEN 

420 HEM AJUSTE HAVIA ARRIBA 

930 PU? 1tatd=1,1)-94.410-1, 2)-4) CRUZ, XUR 

2 Hidro ddr 1 

440 POL ita dr 4,401, 2)4), CRUZ, XOR 

430 RETURN 

O RSU  Agm AA 0d, 1 0 2 HA I-2,2)-A19-1,2))"2) 
470 CIRCLE 1At0r1.10,Ad-1,2),K,0 

Adv. RETURN 

490 R=SOR((M(AXI=2,1)-AtJ-1,19) 2) +14(9-2,22-A(J-1,2))"2) 
500 CIRCLE (A11-1.1),4(J-1,2)),Ra1 

510 RETURN 

520 REM HACIA LZQUIERDA 

530 FU tAtd=1, 14,401,214), ERUZ, XOR 

533 Aid-1.d)= Hd dd) md 

540 PUT (A41-1,1)-4,A1J-1,2)-4), CRUZ. XOR 
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EL TALLER DEL HADWARE 


3) HE TURN 
REN HACIA DERECHA 


A 


AS UN 
SO HEM HACIA ABAJO 


NA ADA 


RETURN 
) REM. RECTANGULO 


RETURN 


J- COLR=COLA el 
0 RETURN 

DO REM 

PO REM RELLENA 


FUV ii dd) A BA A RUZ XOR 


AA NI A PRO A A E EAN 


So FYI- Añtdrdc dos Aidrd. 2749. CRUZ, XOR 


4141 16 01-1.1-4,A414J-1, 2)-49), CRUZ, XOR 


LIME 184 dot Adri AA do dr A d-2) 20), 0,B 


1 REM TECLA 10. CAMELA COLOR PRINCIPAL AL SIGUIENTE 


PRO PUT (Ar 1174. AU=1) 274) CRUZ, XUR 
30 PAINT Ati A 1,219.00 


40 RETURN 


SO REM INVIERTE IMBGEN EN RASIO PARA SACAR EN IMPRESORA 


Y DEF” SEG=9HB806 
YO FOR Li=0 TO H2000 


O NEXT: DEF SEG: RETURN 
O. FORK. 1150 10359 
FOR Ji=0 TO 190 


MEX1 J1 
3 NERY 11 
RETURN 


El método lento requiere mucha menos 
circuitería, pues puede conectarse directa- 
mente a una de las entradas de la tarjeta de 
ampliación de puertos. No permite las mismas 
operaciones que el rápido, pues es necesario 
hacer por programa lo que el método rápido 
hace por circuitería. 

En este método la exploración de fila y 
columna es preciso realizarla por programa, 
presentando durante un período suficiente 
una fila o columna luminosa sobre fondo oscu- 
ro. El ancho de la fila o columna podría hacer- 
se de más de una línea, para mayor facilidad 
de lectura. El programa de lectura de la posi- 
ción del lápiz deberá conservar en memoria 
el contenido que tiene la pantalla en ese mo- 
mento, realizar el barrido y volver a restaurar 
la pantalla inicial, indicando la nueva posición 
del lápiz mediante algún símbolo de cursor. 


Circuito de lápiz para el Spectrum 


El circuito consta de un sensor óptico 
con un amplificador y de un pulsador con el 
cual indicamos cuándo queremos leer los da- 
tos. Los datos que podemos leer en el puerto 
de entrada son los siguientes: 


— Pulsador abierto sensor no iluminado . 255 
— Pulsador cerrado sensor no iluminado 254 
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PORKE 11,255 XOR PEER. (11) 
FORE- 1148 H2000, 2599 XOR PEEK111+%H2000) 


PSEJ (114 d 17. 1 x0R FONT (11,91) 


— Pulsador abierto sensor iluminado ....... 253 
— Pulsador cerrado sensor iluminado ..... 252 


SALIDA COMPARADOR P1 


+5 
AL PUERTO 


4K7 
PULSADOR PO 


Fig. 5. Circuito de conexión al Spectrum. 


Los ocho bits del bus de datos dan la se- 
ñal "1" binaria mientras no pulsemos el botón 
del lápiz ni iluminemos el sensor, ya que es- 
tán conectados a + 5v. Si pulsamos el botón, el 
bit 0 se pondrá a "0" lógico. Si el sensor es ilu- 
minado con cierta intensidad (determinada 
por Pl), el bit 1 se pondrá a *0' lógico. El am- 
plificador debe tener un tiempo de subida 
muy pequeño para poder captar la señal lumi- 


nosa de pantalla. Este circuito corresponde al comienda utilizar un alto grado de contraste 
de un lápiz óptico lento y su resolución ven- en el ajuste de la iluminación de la pantalla. 
dría determinada por el modo de excitación 
del sensor: puede ser a través de una sencilla 
perforación (fig. 2) o de una lente concentra- Programas para el Spectrum 

dora (fig. 3), con la que se aumentaría la reso- A continuación se muestran unos pro- 
lución. Para el empleo del lápiz óptico se re- gramas desarrollados en el Spectrum: 


10 KEM PROGRAMA 1 

20 BORDER 22 PAFER Dr MK yy Ulloa 

BO PRINT OA 10,103 IN Xi HEN LECTURA DEL PUERTO LAFIZ OPTICO 
40 60/1036 


Sd 


Con el programa 1 comprobamos si el 253, A continuación apretamos el botón y el va- 
circuito está bien realizado: introducimos y lor final tiene que ser 252. Si tras estas com- 
ejecutamos el programa. A continuación colo-  probaciones los resultados son positivos, el 
camos el lápiz óptico en algún punto oscurode circuito está bien realizado. Si no, debemos 
la pantalla y mantenemos el botón sin pulsar. comprobar si las conexiones se han realizado 
El valor registrado en la pantalla debe ser 255. bien, si algún contacto eléctrico falla, o el in- 
Ahora pulsamos el botón y debemos obtener terior de un cable está cortado. Si nada de esto 
el valor 254, Entonces colocamos el lápiz ópti-- sucede, puede que algún componente esté 
co en el borde blanco de la pantalla y sin el defectuoso y haya que sustituirlo, 
botón apretado el dato en la pantalla debe ser 


1Ó REM PROGRAMA 


ZO INE 7i PAPER Ur BORDER 21 BRIGHT 1 
30 TL? FOR X=0 TO 21 
40 ERINT AL 1.0; "assspssarsrasoosrosn osos a REN A CUADRADOS 


56 IF IN X=2392 THEM 60 1(1 7021 REM LECTURA DEL OL.G. FARA RASTREO Y 
60 NEXT Yi 60 TO 30 

70 ELS: FOR X= 10 54 

BO PRINT AT Y, 3"=": REMOUN CUADRADO 

90 IF. IN X=252 THEN 60 TO 110: REM LECTURA DEL L.0. PARA RASTREO X 
100 NEXT Xi 60 TO 70 

110 CLS: PRINT "“COORDEMADAS: X="papU y v=UjY 

120 STOP : 


El programa 2 es un ejemplo de aplica- vemos un cuadrado de izquierda a derecha y, 
ción directa para obtener las coordenadas a asimismo, con la instrucción IN comprobamos 
las que apunta el lápiz óptico a través del BA- si el lápiz óptico es iluminado por el cuadra- 
SIC. Los colores se cambian en la línea 20 y do. Cuando esto suceda ya tendremos las 
ello se hace, pues, con esos nuevos atributos coordenadas X e Y en baja resolución. 

(tinta blanca con brillo, papel negro y borde Este programa se puede emplear como 
blanco) el contraste es mucho mayor. En la lí-  subrutina en un programa que emplee el lápiz 
nea 30 borramos la pantalla e iniciamos el bu- Óptico para que el usuario escoja entre los me- 
cle que rastrea la coordenada Y. Esto se hace  nús las opciones deseadas, ya que cada op- 
con una barra de 32 cuadrados de larga a lo ción ocupa una línea de caracteres y basta con 
largo de las 22 filas del eje Y. Dentro del bu- la baja resolución. Incluso podríamos suprimir 
cle tenemos la instrucción IN, que nos sirve , el rastreo en el eje de la X si sólo hay una op- 
para leer el puerto X y saber si el lápiz óptico ción por cada línea. 

está siendo iluminado. En tal caso (cuadro IN He aquí un programa en código máqui- 
X = 252) se salta al segundo bucle de la línea na que realiza la función de calcular las coor- 
70. Aquí volvemos a borrar la pantalla para  denadas donde está el lápiz óptico, pero a una 
que lo que hubiera imprimido no nos interfie- velocidad mucho mayor que la del BASIC y en 
ra en el rastreo por el eje X. En este bucle mo- alta resolución: 
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EL TALLER DEL HADWARE 


DI 
LD BE. 6144 
LD HL, 16384 
A LD (HL).255 
IN As 0%) 
CP 252 


RET 

B LD (51200),HL 
LD (HL), 1 
LD BC,8 

€ —SLA (HL) 


LD (51202), 
El 


Las instrucciones DI y El se emplean 
para que la ULA no nos interrumpa mientras 
ejecutamos el programa. El bucle etiquetado 
con “A” se encarga de realizar el primer ras- 
treo. Este bucle consiste en ir “pokeando" con 
el valor 255 desde la dirección 16384 (donde 
empieza la memoria de pantalla) hasta la di- 
rección 22528 (donde acaba la memoria de 
pantalla y empieza la menoria de atributos o 
colores). A la vez leemos el puerto X, que es 
donde tenemos conectado el lápiz óptico. 
Cuando éste nos dé la señal de que ha sido ilu- 
minado, detenemos el contador y "pokeamos" 
en la dirección 51200, 51201 la posición X, Y 
relativa (pues en base decimal no podemos 
usar ese valor directamente como coordena- 
da) a la que apunta el lápiz óptico (esto es lo 
que hace la parte del programa etiquetada 
con la letra B). Entonces tomamos el byte de 
la pantalla al que apunta el lápiz óptico y “po- 
keamos" en él un 1 decimal, que en binario se- 
ría 00000001. Ese 1 significa un píxel o punto 
más pequeño de la pantalla. Ahora comienza 
el bucle etiquetado con la letra C, el cual hace 
lo siguiente: rota el byte (es decir, el antiguo 
dato binario 00000001 pasaría a ser 00000010), 


19 REM PROGRAMA DIBUJO 


ZO FOR A=60000 TO SwF 


37 READ E 
40 PORKE A,t 
50 MEX TOA 


X=DIRECCION DEL PUERTO DEL L.OP11CO 


comprueba si el lápiz óptico es iluminado, si 
no, continúa rotándolo; pero si es iluminado 
por nuestro píxel, entonces saltamos a la par- 
te del programa etiquetada con D. Esta parte 
nos "pokea" en la dirección 51202 el número de 
veces que ha tenido que rotar el byte hasta 
conseguir la coordenada exacta del lápiz ópti- 
co. 

La dirección del puerto de entrada no 
se ha fijado y se simboliza con "X”. Finalmen- 
te, el programa "pokea" en las direcciones 
51200, 51201 y 51202 unos valores a partir de 
los cuales podemos saber a dónde apuntaba 
el lápiz Óptico. Las coordenadas serían las si- 
guientes: 


X = ((DIR - 16384)/24) + PEEK 51202 
Y = 176 - ((DIR - 16384)/32) 


En la expresión anterior DIR es la suma 
del valor encontrado en 51200 y del valor en 
51201 multiplicado por 256. 

Ahora mostramos un programa en BA- 
SIC para dibujar con el lápiz óptico que em- 
plea la rutina en código máquina: 


90 FPOKE 230398, 31 EEMFldA HAYUSCULAS 
YE IM Ert="0" THEN GO SUE 1402 KE3N COLORES 


30 1-1 


100 ECU Es 


2 THEN 90. SUE 2201 REN CIRCULO 
* TREN OVER 15 REM BORRAR 
HEM OVER ds REM PINTAR 


| 


E EE 
420 ECM 2 UH 
GU 16 70 

A EN A 
INFIIE. "PAPELISs Ls 
IMPI "BORDES 
INPUT "BRILLO". 
LUPI IU PARFADEGIA, 
IMPI ' 
HERE 
HE PURI 


NA 
130 
14 
130 

do 10) 
170 


130 


Lrih 


E 
bU- 0 Zo 
IIA SU 
RE PUR 
-LETOXiI=X 
60 SUB 340 
LET R=50k 
RETURN 
RANDOMIZE USK 0191398 
OVER O; 
INE 7/5 PAPER OO: 
RANDOMIZE USK 99000 
LEFT DIR=SPEER 


LET yli=v 


LET 
RANDOMIZE USK 50046: 
LET xl=X: 
1F 
G0 10 440 

INPUT "ARCO". 
RETURN 

DATA 
DATA 
DATA 
DATA 
DAara 
DATA 


LET yi=Y 


2d, 2Ods 


Con este programa se pueden trazar 
puntos, líneas, arcos y círculos. Combinándo- 
los podemos hacer pantallas de presentación 
y cambiarle los colores. La estructura del pro- 
grama es sencilla: hay un bucle principal que 
interpreta si quieres modificar los colores (te- 
cla C), trazar un círculo (tecla H), una línea (te- 
cla L), borrar (tecla B), pintar (tecla P) o sim- 


PODEMOS ESCOGER 


TINTA. amare 


Los colores son: 0-NEGRO, 1-AZUL, 
2-ROJO, 3-VIOLETA, 4-VERDE, 5-CELESTE, 
6-AMARILLO, 7-BLANCO. 

Al final del programa hay un conjunto 
de datos que son la rutina de rastreo para el 
lápiz óptico y un intercambio de bloques de 
memoria para no perder la imagen de la pan- 
talla cuando se buscan las coordenadas del lá- 


¡HEN 66 


ERPIOL". La 
pub UD 


L 


UA 40 
¿ VHEN LE 


ERIME ROAD Mo CODELCO LUNA 
IN 1209 OR 1N AS 232 


INVERSE 0; FLASH Us 
BORDER 7: 


LLORIA PEER 
LET N=176-((DIR-16384)/32) 
ASA DIR10384) 7104) +PEER Si20Z 


REM LINEA 


SUB 340: REM FUNTO 


PAPEL 
 BURDE L 

1 BRIBHI € 

= PLASHTE 
INVERSE 


Paldste ur LE ke ra= "5 HEN COLS 


RADIO" 


HEN 60 SUE 300: 60 10 280 


AABO AA XL) AL FLA Ae Y LO 


BRIGHT 1 
CLS 


Sizot 


RETURN 


IN 2254 OR IM x=252 


2024.33, 04,54. 285 
35, 16,243, 251,201,34,0,20 : 
2 RAZA 202, 32 a ds. 245, 251 LOL, 120,304 2, 200 
KEM DATOS 
17.0,64,35,0,128,1,0,27,237,176,201,17,0,128,33,0 
64,1,0,27,237,176, 2013 


PRINTO ROAD 0.003 SELECCIONA PUNTO FINAL" 


HEN 60 SUR 340 60 10 460 


DRAW mal io Yr is 


a A o A PAS 
and ado 8 Ds 2 


L/M RUTINA LAFI1Z OPTICO 


REM C/M TRASBASE PANTALLA 


plemente pintar un píxel directamente con el 
lápiz. Todos los trazados emplean la subrutina 
que calcula las coordenadas a las que apunta 
el lápiz óptico. 


Los colores se cambian pulsando la te- 
cla C, entonces en la última línea de la panta- 


lla imprimirá una serie de comandos: 


DE OA 7 


.o uo 


ENTRE 0 y 1 
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PULSAR LA JECLA S 51 SE QUIERE HORRAR LA PANTALLA 


piz óptico. El programa en ensamblador de las 
rutinas para el intercambio de memoria es el 
siguiente: 


RUTINA QUE REFORNA LA FANTALLA 
LD DE, 160384 
10 Hi. 32768 


EL TALLER DEL HADWARE:- 


7 A UL UakDe Lo HAN TAL 
DE 5 et 
TIMO HL losas 
as 
AS 
mE! 


Estas rutinas se emplean para que el di- 
bujo contenido en la pantalla no se pierda, 
pues la rutina que rastrea las coordenadas del 
lápiz óptico imprime en pantalla estropeando 
el dibujo que hubiera trazado en ella. Es de- 
cir, que la segunda rutina guarda la memoria 
donde está contenida la pantalla y la primera 
rutina devuelve de nuevo los datos a la panta- 
lla. La dirección de la memoria de pantalla es 
la 16384 y la dirección donde guardamos la 
pantalla para que no se estropee es la 32768. 
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La longitud del bloque de memoria es 6912 
bytes. En el programa BASIC la subrutina para 
leer el lápiz óptico está en la línea 340. Prime- 
ro hace una RANDOMIZE USR 60058, que es 
una llamada a la rutina en código máquina si- 
tuada en esa dirección. En esta dirección está 
la rutina que guarda la memoria de pantalla. 
Después cambia los colores: la tinta blanca con 
brillo y el papel negro para que exista con- 
traste y el borde blanco para potenciar aún 
más el contraste. Entonces se procede a la lla- 
mada de la rutina que detecta la posición del 
lápiz óptico mediante RANDOMIZE USR 60000. 
Una vez que la rutina finaliza su tarea, retorna 
al BASIC y desde el BASIC hacemos unos 
cálculos finales para obtener las coordenadas 
definitivas. Es ahora cuando llamamos a la ru- 
tina de retorno de pantalla con RANDOMIZE 
USR 60046 para tener de nuevo nuestro dibujo 
en el televisor y continuar con nuestra labor 
de artistas. 


APRENDER CON EL ORDENADOR 


NATURALEZA Y TECNOLOGIA 


Electrostática: Teoría de Gauss 


L estudio de la electrostáti- 

ca se remonta a épocas re- 

lativamente recientes. De- 

bemos su formulación a los 

experimentos de Priestley, 

en 1767, y repetidos por 

Coulomb, en 1785. Existen 

diversos aparatos básicos 

donde se observa la existencia de cargas 

electrostáticas tales como el electroscopio, el 

electróforo o los generadores electrostáticos. 

La carga eléctrica es una magnitud bá- 

sica en la estructura del átomo. Una de las 

fuerzas más importantes en los átomos es la 

atracción entre las cargas opuestas del núcleo 
y de la corteza. 


Campo eléctrico 


Puede definirse el campo eléctrico en 
un punto dado del espacio como la fuerza por 
unidad de carga que actuaría sobre una car- 
ga dada situada en dicho punto. 

Sabemos que la fuerza entre dos cargas 
cualesquiera es: 


MENO 
4. € R? 
donde á es el vector director en la dirección 


de la línea que une las dos cargas. 
Como el campo es por unidad de carga 


Pas 4 


Y: SA 
A il a 
El potencial eléctrico queda definido 
como: 
a Q 
V= A R 


Aplicación del Teorema de Gauss 
a una esfera 


Matemáticamente el teorema de Gauss 
se enuncia como: 


E .ds- yA 
€ 
La integración de E-dS a toda la super- 
ficie nos da el número de líneas de campo que 
ataviesan la superficie. 
En el caso de la esfera, como el campo 
es constante para un mismo radio => 


E. Jas-2 
€, 


Luego, como el valor de la integral es 
la superficie de la esfera = 4-11:-R* => 


4 Q 
de 4 TT -€, :R? 


Que es la fórmula utilizada en el progra- 
ma, teniendo en cuenta siempre que el cam- 
po eléctrico en el interior de un conductor 
siempre es nulo. 


10 REMAXAA AAA REAL ALA ARA RARA 


20 REMx* PROGRAMA * 
30 REMx* DE * 
40 REMx ELECTROESTATICA * 


SO REMIX AE EA ARK KAR 
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APRENDER CON EL ORDENADOR 


60 REM* — VALIDO PARA AMSTRAD  x 
70 REM» IBM-PC Y COMPATIBLES x 
80 REM COMMODORE, SPECTRUM  x 
PO REM* Y MSX * 
OO REM RAR 


110 
120 
130 
140 
150 
160 
170 
180 
170 
200 
210 
220 
230 
240 
250 
Z6ó0 
270 
280 
290 
300 
310 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT “INTRODUCE 
PRINT "LA ESFERA 
PRINT "INTRODUCE 
INPUT R 

PRINT "INTRODUCE 
PRINT "LA ESFERA 
INPUT D 

PRINT "LOS DATOS SON:" 
PRINT *RADIO=";R;3" METROS” 
PRINT 
PRINT 
PRINT 
PRINT 
LET Pl=3.141532 


"INPUT Q 


"CARGA=",03" CULOMBIOS" 
“DISTANCIA= ";D¿" METROS" 


"ESTE PROGRAMA CALCULA EL" 
"POTENCIAL Y EL CAMPO " 
"ELECTROESTATICO DE UNA ESFERA" 
"DE RADIO VARIABLE EN UN PUNTO" 
"CUALQUIERA DEL ESPACIO" 


EL VALOR DE LA CARGA DE” 


EL RADIO DE LA ESFERA" 


LA DISTANCIA DEL CENTRO DE" 
AL PUNTO DE ESTUDIO" 


1"30/C09xXPIXEPXD*D);" VOL/M." 


320 REM**DEFINO EL EPSILON PARA EL VACIO*** 

330 LET EP=1 

390 IF D=< R THEN GOTO 370 

350 PRINT "EL CAMPO ELECTRICO ES 

360 PRINT 

370 PRINT "EL POTENCIAL ES :";0/(9*PIXxEPxD>;" VOL” 
380 GOTO 430 


390 
900 
410 
420 
430 


PRINT 
PRINT 
END 


MATEMATICAS 


Cambio de coordenadas cartesianas 
a esféricas y viceversa 


En el espacio vectorial real un punto 
queda definido por tres coordenadas, una por 
cada dimensión espacial. 

A cada:punto le podemos hacer corres- 
ponder un vector que queda definido por el 
afijo, que es el punto anteriormente señalado. 
De esta forma un vector cualquiera V lo pode— 
mos expresar como V(x,y,z), donde cada tér- 
mino representa lo que llamamos una coorde- 
nada en una base ortonormal. Veamos qué sig- 
nifica esto: 


Base. Base de un espacio vectorial es un 
sistema de vectores que cumple las dos carac- 
terísticas siguientes: 

— Son libres, es decir, que ninguno de 
ellos puede ponerse como la suma de los de- 
más. 

— Son un sistema generador, es decir, 
que cualquier vector del espacio puede po- 
nerse como suma de los vectores de la base. 
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"EL POTENCIAL ELECTRICO ES 


REMx****S] El PUNTO ESTÁ DENTRO DE LA ESFERA*X**x 
PRINT "EL CAMPO ELECTRICO ES :";0 


1" 30/C9KXPIXEP*5/, 5" VOL." 


Base ortonormal: Una base ortonormal 
es aquella cuyos vectores cumplen: 


— Son base. 

— El módulo de los vectores es la uni- 
dad. 

— El ángulo entre ellos es de 90”. 


La representación de un vector (o de un 
punto, que no es más que el afijo del vector) 
en esta base es lo que denominamos represen- 
tación en coordenadas cartesianas de un vec- 


Para determinadas aplicaciones, sobre 
todo cuando trabajamos con cuerpos de geo- 
metría esférica o cilíndrica, la representación 
en coordenadas cartesianas resulta demasia- 
da complicada por lo que necesitamos unas 
herramientas de cálculo más sencillas que las 
coordenadas cartesianas. Existen varios tipos 
de coordenadas distintas de las cartesianas, 
pero aquí nos vamos a centrar en la represen- 
tación en coordenadas esféricas, por su impor- 
tancia tanto en matemáticas (resolución de in- 
tegrales triples, transformaciones...) como en 
física (cálculo de momentos de inercia, segui- 
miento aéreo, campos...). 

Un vector en coordenadas esféricas 
queda definido por: 


— Su módulo, que como el módulo de 
cualquier vector queda definido por longitud 
del vector. 

— Angulo TETHA, que es el ángulo que 
forma el vector con el eje -X-. 

— Angulo PHI, que es el ángulo que for- 
ma el vector con el eje -Z-. 


ea. aldo dds 11d: pai dl la 


20 REMK PROGRAMA 

30 REMXK DE ¿ 
40 REMKX CAMETO DE COORDENADAS  k 
SO REMIGIO RIOIOIOIO OOOO OO 


560 REMKk VALIDO PARA AMSTRAD * 
70 REMX IBM=PL Y COMPATIBLES kx 
80 REMXK COMMODORE, SPECTRUM  x 
90 REMXk Y MSX * 
190 REMO lala dalla lalalala lolalololok 
110 CLS 


120 LET PI=3,141593 


Entonces, si queremos calcular las coor- 
denadas esféricas a partir de las coordenadas 
cartesianas, tendremos que realizar los si- 
guientes cálculos, recordando que un vector 
se descompone en el plano de la siguiente for- 
ma: 


ÓN 


Fig. 3. 


Xx = MOD «coseno(a) 
y = MOD - seno(a) 


Luego, en el espacio, el vector queda 
expresado en esféricas como: 


MOD = Vx: + y2 +22 


TETHA = ARCTAN (y/X) 
PHI = ARCTAN (Vx? + y2/2) 


De forma análoga, si un vector me vie- 
ne dado en esféricas y quiero pasarlo a carte- 
sianas: 


Xx = MOD - SEN(PHD - COS(TETHA) 


y = MOD - SEN(PHI) - SEN(TETHA) 
z = MOD . COS(PHD) 


130 PRINT "ESTE PROGRAMA REALIZA EL CAMBIO" 
140 FPRINT "DE COORDENADAS ESFERICAS A CARTESIANAS"”. 


150 PRINT " Y VICEVERSA" 
160 PRINT 
170 PRINT "1. 


CAMBIO DE CARTESIANAS A ESFERICAS" 


180 PRINT "2. CAMBIO DE ESFERICAS A CARTESIANAS” 


3190 INPUT "INTRODUZCA OPCION";E 
200 1F E=1 THEN SOSUB 230 

210 1F E-2 THEN GOSUBE 340 

220 GOTO 430 


APRENDER CON El ORDENADOR 


DIO REMARYAK AQUI CALCULO ESFERICASXXA kk 


240 PRINT 

950 PAPUT "INTRODUCE COMRDENADA -X-" 
260 INPUT "INTRODUCE COORDENADA -Y-" 
270 INPUT "INTRODUCE COORDENADA -Z-" 


¡Xx 
qY 
UA 


280 PRINT "EL MODULO WALE :"3S0OR(X"2+Y02+Z2) 

000 TS X=0 THEN PRINT "EL ANGULO TETHA VALE "3PI/23" RADIANES":GOTO 310 
300 PRINT "EL ANGULLO TETHA VALE: "5ATN(Y/X)3" RADIANES" 

310 1% 250 THEN PRINT "EL ANGULO PHI VALE: "3P1/2;" RADIANES":GOTO 330 
320 PRINT "EL ANGULO PHI VALE: "3ATN(SOR(X"2+Y72)/Z)3" RADIANES" 


330 RETURN 


340 REM KXXKA AQUI CALCULO CARTESIANAS IO k 


350 PRINT 

360 INPUT "INTRODUCE EL MODULO ”5MOD 
370 INPUT "INTRODUCE ANGULO TETHA "3 
380 INPUT "INTRODUCE ANGULO PHI "sP 
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390 PRINT "LA COORDENADA —X- VALE :”*5MODÁSIN(T)XCOS(P) 
400 FPRINT "LA COORDENADA -Y- VALE 5"3MODASIN(T)XSIN(P) 
410 PRINT "LA COORDENADA -Z- VALE 1”3MODXCOS(T) 


420 RETURN 
430 REM MKXAF INAL AA Ek 


SOCIEDAD 


Proposiciones 


En el lenguaje cotidiano empleamos nu- 
merosas proposiciones simples de las cuales 
podemos afirmar, sin duda, que son verdade- 
ras o falsas. Estas proposiciones simples las 
combinamos de muchas maneras, mediante 
conectivos o nexos, formandose así las propo- 
siciones compuestas. Según el nexo o conec- 
tivo que se utilice, se forman los distintos tipos 
de proposiciones compuestas. 

Entre estos tipos o conectivos que se 
utilizan encontramos: 

— igual a b 

— 1 :negación, “NO” 

— *v" :disyunción, “O” 

— "aA” :conjunción, “Y” 

— =>” ¡implicación simple. 

— "<=>" :implicación compuesta. 


> 


Tipos de proposiciones compuestas 


1. Conjunción de proposiciones. Si dos 
proposiciones simples, p y q, las unimos me- 
diante el conectivo *-Y-", se forma una tercera 
proposición (proposición compuesta), que se 
llama conjunción de p y q. Esta proposición 
compuesta es verdadera sólo cuando sean ve- 
radaderas las proposiciones p y q. 


Tabla de verdad 


PINQ PEO 
MA EN: V 
ME F 
Ens, Y E 
ES ab E 
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2. Disyunción de proposiciones. Al 
unir dos proposiciones simples p y q median- 
te el conectivo "-O-", se forma una nueva pro- 
posición compuesta llamada disyunción de 
proposiciones p y q. Se representa por p-O-q. 
La disyunción de dos proposiciones es falsa 
e y cuando las dos proposiciones p y q sean 
alsas. 


Tabla de verdad 


P (Q'P-0:Q 
V v V 
Wa E V 
EN V 
Eo ¡E E 


3. Negación de proposiciones. La ne- 
gación -NO-p (o 7p) de una proposición sim- 
ple p consiste en negar lo que afirma la pro- 
posición simple p. Se representa por p. 


e 
0 e 
E. 


4. Proposición condicional. Cuando 
dos proposiciones simples p y q las unimos 
mediante “si...entonces...”, la proposición com- 
puesta formada se llama condicional o implí- 
cita simple. Se representa por p=>q: 


Tabla de verdad 


Pu Qu Re 0 
MEN V 
YM Y F 
AN V 
F p V 


5. Proposición recíproca. La proposi- 
ción condicional p=>q tiene una proposición 


recíproca: q=>p. 


6. Proposición contraria. La proposi- 
ción condicional p=>q tiene la proposición 
condicional contraria 1p=>1q 


1. Proposición contrarrecíproca. La 
proposición condicional p=>q tiene la propo- 
sición contrarrecíproca 1q=>Tp. 


8. Proposiciones bicondicionales. Si 
dos proposiciones simples se unen mediante 


10 
20 
30 

40 

50 

$0 

70 

50 

70 

100 
110 
120 
130 
190 
150 
140 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
270 
300 
310 
320 
325 
330 
335 
336 
337 
340 
350 
360 
370 
380 
390 
4900 
410 
420 
4930 
440 
450 
500 
510 
520 
3400 
3410 
3510 
3610 
3710 
3810 
4000 


REMEAXAXLA ELLE ERA AE RAR 
REM* PROGRAMA * 
REMx DE * 
REMx* PROPOSICIONES * 
REMAKE AEREA AER 
REM* VALIDO PARÁ AMSTRAD —*x 
REMx IBM=PC Y COMPATIBLES *x 
REM* COMMODORE, SPECTRUM + 
REMx* Y MSX * 
REMERA LLL REE ARRE ARA 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FOR F=1 TO 4 
READ A 
READ A$ 


GOSUB 3400 
READ As 


GOSUB 3400 
READ At 


GOSuUB 3400 
PRINT 
NEXT F 


PRINT 
PRINT 
FOR F=1 TO 4 
READ A 
READ As 


GOSUB 3400 
READ As 


GOSUB 3400 

READ AS 

PRINT "EL NUMERO"; A 
GOSUB 3400 

NEXT F 

PRINT 


GOTO 4000 
IF A$<>U$ THEN PRINT 


IF A$=U4$ THEN PRINT 
RETURN 


REM x%F INAL xxx 


PRINT “EL NUMERO "¡6;"ES DE DOS CIFRAS: 


PRINT "EL NUMERO ";A;"ES DE DOS CIFRAS: 
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el conectivo “si y solo si...entonces...” se forma 
una proposición compuesta llamada bicondi- 
cional o de doble implicación. 


P. Or P<=>0 
AN] V 
NE F 
EIN 13 
E PF V 


“ESTE PROGRAMA LE MUESTRA VARIOS" 
"EJEMPLOS DE PROPOSICIONES LOGICAS," 

"EL ESTUDIO SE CENTRA EN LA CONJUNCION, * 
"DISYUNCION Y NEGACION DE PROPOSICIONES." 


MA REAXAEJEMPLO DE CONJUNCI ON 
"P=EL NUMERO 7 ES IMPAR:U" 


"Q=EL NUMERO 7 ES NUMERO PRIMO:Y" 
“P-Y-0=EL NUMERO 7 ES IMPAR Y NUMERO PRIMO:U" 


PRINT "EL NUMERO "¡46;"ES PAR:": INPUT Y+ 


"INPUT U$S 


PRINT "EL NUMERO";A;"ES PAR Y DE DOS CIFRAS": INPUT Vs 


REMXX*%*x*DISYUNCION DE PROPOSICIONES xx 


“AXE EJEMPLO DE DISYUNCION XXXIX" 


PRINT "EL NUMERO ";A;"ES PAR:": INPUT Us 


“+ INPUT U$S 


¡"ES PAR -0- DE DOS CIFRAS": INPUT Us 


PRINT "HAS ACERTADO ";C3" VECES" 


REM****SUBRUTINA DE DETENCION DE ERRORES*XxxXx 
"LA CONTESTACION VALIDA ERA: 
"CORRECTO ":C=C+1 


"508 


DATA 127 INIA A RL E" E ME ASA! Ai) ISESNIES AA 
DATA L05 IM O pe A Ef CER eE O? pe De ri IM ¿48 Joya 


APRENDER CON EL ORDENADOR 


PARA LOS MAS JOVENES 
La moneda 


Todos los países del mundo poseen su 
propia moneda; en Inglaterra, la libra; en 
EE.UU., el dólar, etc. En España ya sabéis que 
es la peseta. 

Con el paso del tiempo han ido apare- 
ciendo y desapareciendo en nuestro mercado 
monetario billetes y monedas. Ahora mismo en 


Fig. 4. 


10. REMAIN 
20 REMx* PROGRAMA * 
30 REMXx DE * 
40 REM* DEVOLUCION DE MONEDAS  * 
50. REMAIN 
$0 REM* VALIDO PARA AMSTRAD  * 


Españan circulan billetes de 10.000, 5.000, 
2.000, 1.000, 500 y 200 pesetas, y casi en desu- 
so los billetes de 100 pesetas y monedas de 1, 
2, 5, 25, 50, 100 y 200 pesetas. 

Hemos hecho este programa para que 
te familiarices y manejes con mayor facilidad 
los billetes y monedas que existen en el mer- 
cado monetario de España. Queremos que 
aprendas a manejar correctamente los billetes 
y monedas dependiendo de la cantidad exigi- 
da. 


Fig. 5. 


20 REMx IBM-PC Y COMPATIBLES * 
80 REM* COMMODORE, SPECTRUM  * 
50 REMX Y MSX * 
100 REMAIN AA 
110 CLS 
pr 120 PRINT "ESTE PROGRAMA CALCULA EL DINERO" 


130 PRINT "LAS MONEDAS Y BILLETES QUE HAS DE" 
140 PRINT "PAGAR PARA REALIZAR UNA DETERMINADA" 
150 PRINT "COMPRA Y HACERLO DE FORMA EXACTA," 


160 PRINT 


170 PRINT "LAS UNIDADES MONETARIAS QUE RECONOCE SON" 


180 PRINT "BILLETES DE: 

190 PRINT "-10,000 PTS.” 
200 PRINT "- 5.000 PTS." 
210 PRINT "- 2,000 PTS.” 
220 PRINT."- 1.000 PTS." 
230 PRINT "- 500 PTS." 
240 PRINT "MONEDAS DE:" 


250 PRINT "- 200 PTS." 
260 PRINT "- 100 PTS." 
270 PRINT "- 50 PTS." 
280 PRINT "- 25 PTS.” 
290 PRINT "- 10 PTS.” 
300 PRINT "- S PTS.” 
310 PRINT "- 21 PISA 
320 PRINT "- 1. PTS." 


330 INPUT "PULSA ENTER PARA CONTINUAR" ¡A$ 


340 ELS 


350 INPUT "INTRODULE EL IMPORTE DE LA COMPRA";C 


360 PRINT 


361 
370 
330 
400 
420 
430 
490 
450 
955 
950 
470 
980 
490 


LET- P=C 

READ B:READ A+ 

LET H=0D 

LET H=INT(P/B> 

PRINT "CUANTOS ";A$;" NECESITO ? "¡INPUT Y 

1F U<>H THEN PRINT "NO ES CORRECTO, NECESITAS ";H;" ";As 

LET P=P-Hx*B 

1F P=0 THEN END 

G0TO 370 

DATA 10000,BILLETES DE 10000,S5000,BILLETES DE 5000,2000,BILLETES DE 2000 
DATA 1000, BILLETES DE 1000, 500, BILLETES DE 500,200 ¡MONEDAS DE 200,100 
DATA MONEDAS DE 100,50 ¿MONEDAS DE 50,25 ¿MONEDAS DE 25,10 ,MONEDAS DE 10 
DATA S,MONEDAS DE 5,2, MONEDAS DE 2,1 "MONEDAS DE 1 
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PEQUEÑA HISTORIA DE LA INFORMATICA 


Investigación con fines militares: 
el proyecto Sage 


N otros momentos hemos ha- 
blado de Alan Turing, per- 
sonaje en extremo excéntri- 
co, que ayudó tanto a los 
Servicios de Información 
Británicos en la tarea de 
descifrar mensajes alema- 
nes con el ordenador Colos- 
sus, instalado en Bletchley Park, cerca de Lon- 
dres. El Colossus, llegó a ser la «media naran- 
ja» del Enigma, la máquina de cifrado alema- 
na. Esta última máquina había sido fabricada 
con enormes medidas de seguridad por los 
alemanes, y utilizaba claves con millones de 
permutaciones, por lo que parecía absoluta- 
mente imposible descifrar mensaje alguno. 
Pero la resistencia polaca consiguió obtener 
un ejemplar de la máquina, que fue enviada a 
Londres, y tras su estudio, se llegó a poder 
descifrar los mensajes, con ayuda de un orde- 
nador: el Colossus del que antes hemos habla- 
do. De este ordenador llegaron a fabricarse 
diez ejemplares. El que fue instalado en 
Bletchley Park, funcionaba bajo la dirección 
de Alan Turing, cuyo trato humano desde lue- 
go no podía compararse al de Von Neumann, 
mucho más agradable y campechano. 
Acabada la guerra, y satisfechos los bri- 
tánicos con el resultado de los Colossus, a pe- 
sar de que eran máquinas de tubos (tenían 
unos dos mil quinientos y podían procesar 
unos 25.000 caracteres por segundo), el Go- 
bierno Británico consideró la posibilidad de 
desarrollar un proyecto propio de bomba ató- 
mica. Y para este proyecto podía ser útil con- 
tar con un ordenador británico cien por cien, 
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El Departamento de Defensa decidió encargar 
el diseño a unos fabricantes de armas (tam- 
bién introducidos en el mundo de la electró- 
nica) a los que conocía bien como proveedo- 
res. Ferranti Lted. de Manchester comenzó a 
desarrollar el proyecto en 1949 basándose en 
el prototipo del MARK l inglés, que había fun- 
cionado muy bien, y tenía el honor de ser uno 
de los primeros ordenadores a nivel mundial. 

En 1951, el proyecto había sido termi- 
nado, y la Ferranti consiguió vender varias 
máquinas, aprovechando el ser proveedor del 
Gobierno en el British Atomic Weapons Re- 
search Establishment-Centro Británico de De- 
sarrollo de Armamento, y algunas otras a otras 
entidades gubernamentales. Con la idiosin- 
crasia inglesa, el ser un fabricante inglés, y 
además proveedor de ordenadores para el 
Ejército, le abrió otras muchas puertas, a nivel 
institucional. Es curioso constatar que por el 
momento, existía la creencia generalizada que 
esas máquinas enormes y sofisticadísimas no 
tendrían utilidad fuera de ciertas tareas muy 
específicas y para entidades cuyas finanzas 
fueran más que potentes. No era esta idea pro- 
pia únicamente del gran público, no muy ver- 
sado por lo general en temas técnicos, tam- 
bién era sostenida por personas que colabo- 
raron en el desarrollo de proyectos muy inte- 
resantes. Por ejemplo, Howard Aitken, en Es- 
tados Unidos, siempre pensó que Eckert y 
Mauchly se estaban equivocando de medio a 
medio en el desarrollo del Univac 1, ya que ja- 
más tendrían clientes suficientes para hacer 
viable la Compañía. 

Como se ha visto con el tiempo, la pre- 
dicción de acontecimientos está más unida al 
saber popular antiguo, al conocimiento de las 
realidades cotidianas que a las inteligencias 
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de primer orden. Además, otros descubri- 
mientos ayudarían a dar la razón al dúo Ec- 
kert-Mauchly. 

Volviendo al Colossus inglés, los 
Ferranti consiguieron vender una de sus má- 
quinas a la Universidad de Toronto, en Cana- 
dá, para uno de sus Laboratorios de Investiga- 
ción, en concreto el de Fluidos, 

Sin embargo, la tónica general de la 
época era utilizar poco los enormes y delica- 
dísimos ordenadores para tareas civiles, limi- 
tándolos generalmente en empresas muy po- 
derosas a trabajos comunes de oficina, que cu- 
brían perfectamente. Apenas parecía que hu- 
biera otras necesidades, y probablemente los 
ordenadores no se habrían desarrollado como 
lo han hecho, si las demandas de característi- 
cas superiores por parte del ejército no los 
empujaran a cotas muy superiores, Del pro- 
yecto militar ambicioso SAGE, surgieron otros 
proyectos civiles, como el SABRE en 1958, que 
cubría todas las operaciones de reservas de 
plazas de avión (las compañías de aeronáuti- 
ca estaban sufriendo un desarrollo enorme 
también en estos años). La Lockhead, por 
ejemplo, ya por esas fechas disponía de un sis- 
tema de seguimiento de la fabricación de sus 
aviones mediante ordenador. No hay que olvi- 
dar que la Lockhead trabajaba mucho con la 
Aviación norteamericana, y era fundamental 
para ella ofrecer un buen servicio, aunque los 
precios subieran «algo más» de lo previsto en 
un principio. 

Pasemos a hablar del importantísimo 
proyecto SAGE desarrollado en la mitad de 
nuestro siglo. 

La Aviación norteamericana se dirigió 
al Massachussets Institute of Technology (MIT) 
para.desarrollar un estudio de un sistema de 
defensa, basado en tiempo real. El país se en- 
contraba en plena guerra fría con la URSS, y 
el proyecto era importante. A MIT no le falta- 
rían recursos ni económicos ni humanos para 
sacar adelante el proyecto. 

El prototipo a utilizar sería el Whirl- 
wind, pero, naturalmente, mejorado, sobre 
todo en lo concerniente a sus averías. El Or- 
ganismo creado para controlar el proyecto fue 
el Air Defense System Engineering Commit- 
tee, que era el que había propuesto el proyec- 
to de defensa SAGE (Semi Automatic Ground 
Environmesyt) de defensa antiaérea automáti- 
ca, utilizando ordenadores. El sistema de de- 
fensa consistía básicamente en radares, cuya 
información pasaba automáticamente a los or- 
denadores. Estos, localizado el objetivo y el 
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caza correspondiente, dirigían el proyectil 
desde el caza al objetivo, neutralizándolo. En 
abril de 1951 se realizaron las primeras prue- 
bas que tuvieron un considerable éxito. En la 
pantalla, aparecian objetivo y caza, y el orde- 
nador iba calculando las trayectorias en tiem- 
po real, para que el caza interceptara siempre 
al objetivo con sus proyectiles, aunque éste es- 
tuviera cambiando rumbo, altitud, etc., cons- 
tantemente. 

Este proyecto supuso una verdadera 
revolución. A partir de él se desarrollaron mu- 
chísimos otros de uso civil, todos ellos de unas 
características de muy alto nivel. En el pro- 
yecto SAGE, cada ordenador estaba unido a 
varias consolas de visualización, donde traba- 
jaban los operadores (primera operación a 
tiempo compartido), Los aviones eran «recono- 
cidos» comparando distintos planos almacena- 
dos en la memoria del ordenador con el del 
objetivo. Esta última característica supone una 
de las bases para los simuladores de vuelo. El 
proyecto contaba con otras muchas caracterís- 
ticas que serían fundamentales en la Historia 
de la Informática. 

Por razones de seguridad, cada centro 
disponía de un sistema de dos ordenadores 
idénticos, de forma que si uno de ellos falla- 
ba, el otro pasaría a funcionar instantáneamen- 
te. La red estaba formada por veintitrés sec- 
tores aéreos que cubrían las necesidades de 
defensa, tres centros de coordinación y un 
centro de investigación (el Lincoln Labora- 
tory). 

En 1952, el Lincoln Laboratory se diri- 
gió a IBM para que colaborase en el proyecto 
SAGE. La empresa debería suministrar cin- 
cuenta ordenadores. 

El primer centro SAGE fue operativo en 
el año 1958 ubicando la base del proyecto en 
Mac Guire, New Jersey. Estos centros eran 
casi autónomos; disponían entre otros elemen- 
tos de generadores eléctricos propios, punto 
fundamental, ya que el consumo eléctrico de 
las máquinas, más el debido al aire acondicio- 
nado, era altísimo, No debemos olvidar que es- 
tos grandes ordenadores llevaban más de 
60.000 tubos de vacío, que consumían una bue- 
na parte de los 750 kW hora, que era el con- 
sumo total del equipo, Eran máquinas muy po- 
tentes, que podían controlar hasta 400 aviones, 
utilizando una centena de radares. Su peso 
(275 toneladas) daba una idea de su tamaño, 
Se realizaron múltiples simulaciones para 
«preparar al personal», aunque afortunada- 
mente nunca fue utilizado realmente por algún 


ataque enemigo. La fiabilidad de estos orde- 
nadores fue quizá su mayor ventaja, siendo de 
cinco o seis horas anuales, realmente increí- 
ble para la época. , 

El sistema SAGE fue perfeccionándose, 
y ha sido uno de los grandes acicates en la in- 
dustria informática. A IBM, este proyecto le su- 
pone un gran desarrollo, pero no fue la única 
casa fabricante en beneficiarse. Las primicias 
de casi todos los descubrimientos en el cam- 
po de los ordenadores han ido aplicándose al 
sistema SAGE, mejorándolo y perfeccionándo- 
lo poco a poco, hasta un cierto momento, en el 
que mejores sistemas lo desbancaron. Los c:1- 
cuitos integrados revolucionaron los equipos ; 
proyectos anteriores, y fue necesario pa:tir de 
consideraciones distintas. En 1984 se cerró el 
último centro SAGE. 

El sistema SAGE fue probablemente el 
sistema más importante de defensa automáti- 
ca. Sin embargo, existieron otros proyectos, 
también muy interesantes. El NORC (Naval 
Ordenance Research Calculator) fue un orde- 
nador creado especialmente para la Marina 
por IBM. Data de 1954, y Von Neumann cola- 
boró también en el proyecto. Ya hemos habla- 
do del 701 y del 704 de IBM. De este último, 
desciende el 709, también pensado con fines 
militares, 

Entre otras empresas que colaboraron en 
proyectos militares para el Gobierno america- 
no cabe citar a ERA (Electronic Research 
Company), que en cierto sentido descendía 
de UNIVAC, y que en 1953 diseñó el primer 
ordenador de tambor, el 1101 para la Georgia 
TECH; la propia UNIVAC, que construyó el 
M460, RCA, que diseñó el BIZMAC, 

La tendencia del mercado de ordena- 
dores, tan influido por las necesidades de los 
distintos sistemas defensivos, era incrementar 
sobre todo la velocidad. Los ordenadores con- 
vencionales trabajaban a velocidades cada 
vez más rápidas, pero aquellos que eran dise- 
ñados para usos científicos o militares necesi- 
taban mejorar mucho más las tasas de veloci- 
dad. Una gran parte de las tareas a realizar 
necesitaban trabajar en tiempo real, y natural- 
mente, en estos casos la velocidad es primor- 
dial. 

Si tomamos como medida de la veloci- 
dad de cada ordenador el tiempo que tarda 
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en efecinar una suma, vemos que durante la 
primera generación de ordenadores los pri- 
meros UNIVAC realizaban unas 2.000 sumas 
por segundo (300 microsegundos por suma), 
llegando el UNIVAC Ill a efectuar unas 33.000 
sumas por segundo). En cuanto a las multipli- 
caciones, el MARK I necesitaba tres segundos 
para multiplicar números de diez dígitos, el 
IBM 650, unos 2 milisegundos, el IBM 701 450 
microsegundos, El ERA, del que acabamos de 
hablar utilizaba unos 260 microsegundos, y el 
NORK unos 30. Con estos datos, hemos podido 
ver que en diez años la velocidad de un orde- 
nador se había incrementado por 100.000. 

Al final de la llamada «primera genera- 
ción», se había decantado la necesidad de fa- 
bricar ordenadores, y los calculadores y otras 
máquinas de uso limitado se iban fabricando 
cada día menos. Estos calculadores han vuel- 
to a fabricarse «con otro envoltorio distinto» 
con las calculadoras de bolsillo. Naturalmen- 
te, para salvar la distancia entre un calculador 
enorme y una pequeña calculadora han sido 
necesarios algunos años, y un progreso tecno- 
lógico sin precedentes, pero estas pequeñas 
máquinas, que hoy tiene casi cualquiera, rea- 
lizan las mismas operaciones que los grandes 
calculadores de hace unos años, a una veloci- 
dad mayor, y, todo ello, sin considerar su ta- 
maño. 

También, con el final de la primera ge- 
neración de ordenadores, las Universidades 
fueron perdiendo poco a poco su papel pre- 
ponderante en su desarrollo, Naturalmente, en 
nuestros días siguen existiendo laboratorios 
de desarrollo en todas las Universidades, las 
americanas e inglesas, que fueron las pione- 
ras, y en todas las del mundo. Sin embargo, 
los campos se han diversificado. Las Universi- 
dades siguen investigando, mejorando, aseso- 
rando, pero carecen de los recursos e infraes- 
tructura necesarias para fabricar ordenado- 
res. A partir de esta primera generación, el 
mercado ha ido pasando a las Compañías es- 
pecializadas que se han ido creando, y que 
han seguido invirtiendo e investigando en to- 
dos los campos relacionados con los ordena- 
dores. Ya no se fabrican prototipos, la segun- 
da generación de ordenadores se basa en má- 
quinas fabricadas en serie, para un mercado 
cada vez más amplio y selectivo. 
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PROCESOS INFERENCIALES EN LOS SISTEMAS BASADOS 


EN EL CONOCIMIENTO (I) 
Reglas de producción 


L formalismo de la lógica 
que hemos comentado per- 
mite la definición cómoda y 
precisa de ciertas propieda- 
des que pueden cumplir los 
elementos de la base de co- 
nocimientos o de algunas 
relaciones que se pueden 
dar entre ellos. Por ejemplo, podemos estable- 
cer la norma siguiente (un tanto simplista) de 
análisis zoológico: “SI un animal es ave, tiene 
dos patas y es de color blanco o negro EN- 
TONCES es un avestruz». Esta expresión no es 
más que una proposición con una conectiva 
"implicación", cuatro antecedentes ('es ave”, 
“tiene dos patas", "es blanco", “es negro”) y una 
conclusión ("es avestruz”). 

Esta proposición representa una infor- 
mación de tipo deductivo: permite obtener 
nuevas informaciones a partir de las ya exis- 
tentes; es decir, si ya sabemos que el animal 
objeto de nuestro análisis "es ave y tiene dos 
patas y es o bien blanco o bien negro", la pro- 
posición que comentamos nos indica que po- 
demos concluir que “es un avestruz". Cuando 
se manejan estos conceptos como tales expre- 
siones lógicas, en vez de la proposición ante- 
rior con una implicación se suele formular el 
mismo contenido de información con un sím- 
bolo especial “=>” que se lee "permite deducir”. 
Se escribe "el animal es ave" y "tiene dos pa- 
tas” y (es blanco" o 'negro”) = "es un avestruz”, 

Estas expresiones que se adecúan a la 
estructura fcrmal “SI condición1 X condición2 
Y condición3, etc. ENTONCES acciónlfac- 
ción2facción3, etc.”, dondelpuede ser una 
conjunción ('Y”", A) o una disyunción ('O”, y), 
se llaman “reglas de producción”, debido al ca- 
rácter deductivo que comportan, que permite 
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"producir" nuevas informaciones a partir de las 
ya disponibles. Las "condiciones" que apare- 
cen en la primera parte de la regla se suelen 
llamar también "premisas" o "cláusulas SI”; las 
acciones que aparecen a la derecha del EN- 
TONCES (que se corresponde con el símbolo 
de implicación, '*—>) se llaman "conclusiones" 
o “cláusulas ENTONCES”. En el antecedente de 
la regla, las premisas deben ir unidas por la 
conectiva "Y" (aunque alguna de estas premi- 
sas sea una condición compuesta de otras va- 
rias mediante la disyunción *“O”). El consecuen- 
te de la regla suele tener, en la mayoría de los 
casos, una sola conclusión. 

Aunque el formalismo de las reglas de 
producción se corresponde con el general de 
la lógica, este tipo de expresiones se utilizan 
no sólo en los sistemas que usan como esque- 
ma de representación del conocimiento la ló- 
gica, sino también en aquéllos que se basan 
en representaciones de tipo red semántica o 
inferencial, ternas objeto-atributo-valor, mar- 
cos, etc. Así, por ejemplo, en un sistema ex- 
perto famoso (el sistema MYCIN, diseñado 
para el diagnóstico de enfermedades infeccio- 
sas) que utiliza para la representación del co- 
nocimiento el esquema de ternas O-A-V, la 
mayoría del conocimiento del experto está ex- 
presado en forma de "reglas de producción” 
como la siguiente. 

SI la base del cultivo es sangre y la 
morfología del organismo es bastón y la 
reacción gram es gramneg, ENTONCES hay 
una probabilidad grande (0,6) de que la 
identidad del organismo sea seudomonas- 
aeruginosa. 

Como se ve, en esta regla aparecen tres 
premisas y una conclusión y, en efecto, la es- 
tructura de los cuatro elementos es la de ob- 
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jeto-artículo-valor (cultivo-base-sangre; orga- 
nismo-morfología-bastón; organismo-reacción 
gram-gramneg; organismo-identidad-seudo- 
monas aeruginosa). 

En la regla presentada, por otro lado, 
aparece un elemento que suele incluirse con 
frecuencia en las reglas de producción: los 
factores de incertidumbre que permiten rea- 
lizar "razonamiento impreciso". La regla dada 
no se cumple siempre, indefectiblemente (en 
opinión del experto —el médico—), sino “con 
mucha frecuencia": por ello asigna una proba- 
bilidad relativamente grande (0,6 sobre 1) al 
hecho de que sea cierto que la identidad del 
organismo sea seudomonas-aeruginosa, si se 
cumplen las tres premisas dadas. 

Naturalmente, estas reglas de produc- 
ción pueden incluir expresiones con variables 
(utilizando el formalismo de la lógica de pri- 
mer orden). Por ejemplo, en vez de incluir las 
reglas: 


regla 1: SI Adolfo es padre de Juan 
Juan es padre de Luis * 
ENTONCES Adolfo es abuelo de Luis 
regla 2: SI Ramiro es padre de Jonás 
Jonás es padre de Ramón 
ENTONCES Ramiro es abuelo de Ramón 
regla 3: SI José es padre de Pedro 
Pedro es padre de Paco 
ENTONCES José es abuelo de Paco 
etcétera. 


Se pondría la regla genérica: 


SI Xes padre de Y 
Y es padre de Z 
ENTONCES  Xes abuelo de Z 


pará, a partir de la base de hechos, 


regla 4: 


Adolfo es padre de Juan 
Jonás es padre de Ramón 
José es padre de Pedro, etc. 


deducir que 


Adolfo es abuelo de Luis 
Ramiro es abuelo de Ramón, 
etcétera. 


«intanciando» o particularizando la regla 4 
para los valores posibles que cumplan la con- 
dición clave de la regla: que el elemento de 
la derecha de la primera condición (Y) coin- 
cida con el elemento de la izquierda de la se- 
gunda condición. (Esta es, precisamente, la ta- 
rea a realizar por el motor de inferencia —no 
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sólo en este caso elemental, sino sobre todo en 
otros más sofisticados—, como veremos a con- 
tinuación). 

Los problemas a abordar en el diseño e 
implementación de un sistema basado en el 
conocimiento se resumen en tres grandes 
áreas: problemas de representación del cono- 
cimiento (adecuación del esquema elegido a 
la estructura formal de la información a repre- 
sentar, optimización de los algoritmos de cap- 
tura del conocimiento, relación del formalismo 
de representación de datos con los algoritmos 
o técnicas de procesamiento de la informa- 
ción, etc.); problemas de inferencia del cono- 
cimiento (técnicas de procesamiento, estrate- 
gias de búsqueda, control de los procesos in- 
ferenciales, etc.); dificultades de relación con 
el usuario, con el creador de la base de datos, 
con el experto que facilita el conocimiento... 
(módulos de obtención del conocimiento, mó- 
dulos de traza, mantenimiento de archivos his- 
tóricos, módulos de explicaciones, etc.). 

El primer grupo indicado se resuelve 
mediante una adecuada implementación de la 
base de conocimientos (tema del que ya he- 
mos hablado); el segundo grupo de tareas son 
abordadas por el motor de inferencia del sis- 
tema; para las relaciones al exterior del con- 
junto se suelen diseñar módulos específicos, 
aunque, en ocasiones, se incluyen en el pro- 
pio motor, instrumentos de control del proce- 
so y de explicación y seguimiento de su activi- 
dad. 

El motor de inferencia de un sistema ex- 
perto es un conjunto de módulos que realizan 
las tareas básicas de proceso del conocimien- 
to. Existe todo un cúmulo de actividades que 
debe realizar el Motor de Inferencia (MI) del 
sistema: proceso de deducción propiamente 
dicho, resolución de conflictos, gestión de 
prioridades, control del orden de utilización 
de las reglas, manejo de las memorias auxilia- 
res (donde se van manteniendo los nuevos he- 
chos deducidos, el estado del sistema y otras 
informaciones temporales, etc.), cálculo de los 
factores de incertidumbre «propagados» a tra- 
vés del sistema, etc. 

El núcleo del MI es el módulo de de- 
ducción. Dependiendo del esquema utilizado 
en la representación del conocimiento, la es- 
trategia de deducción puede variar. Sin em- 
bargo, la mayoría de los sistemas utilizan re- 
glas de producción y su manejo se realiza me- 
diante algunas (en numerosos casos una sola) 
reglas deductivas de la lógica. La estrategia 
básica utilizada es la regla llamada de «modus 


ponens». En los sistemas que utilizan lógica de 
primer orden (lógica de predicados) se utili- 
zan, en ocasiones otras «reglas» como «silogis- 
mo» o «modus tollens», según veremos más 
adelante. 

La regla de «modus ponens» afirma que 
si es cierto (se puede afirmar, consta) que se 
cumple un hecho «A» y tenemos una regla de 
producción que asevera que «A—B» («de A se 
deduce B» o «A implica B» o «SI A ENTONCES 
B»), seguro que se puede afirmar el hecho B. 
Esto permite, a partir de los hechos que se co- 
nocen cuando comienza el proceso de deduc- 
ción, obtener nuevos hechos. Naturalmente, si 
disponemos de otra regla que afirme «BC», 
podemos aplicar de nuevo «modus ponens» 
para añadir un nuevo hecho demostrado (C) 
en nuestra base de hechos. 

La regla de «modus ponens» es suma- 
mente simple y produce razonamientos senci- 
llos y suficientemente potentes (en multitud de 
casos). Sin embargo, hay procesos deductivos, 
claros e intuitivos que no pueden hacerse (al 
menos de un modo directo) con esta regla. 

Observemos, por ejemplo, el razona- 
miento: «Si el animal considerado es un aves- 
truz, entonces es un ave» (ES AVESTRUZ — 
ES-AVE); «el animal que estamos consideran- 
do no es un ave» (NO ES-AVE); por tanto «di- 
cho animal no es un avestruz» (NO ES-AVES- 
TRUZ). Parece bastante claro que es correcto 
(y es muy simple); sin embargo no puede ser 
resuelto directamente por «modus ponens»; 
habría que «deducir» por algún procedimien- 
to (existe un teorema en lógica que muestra 
que este paso es correcto) la expresión «si no 
es ave no puede ser avestruz» a partir de la 
frase dada (es decir: obtener NO ES-AVE — 
NO ES-AVESTRUZ a partir de ES-AVESTRUZ 
—> ES-AVE) y aplicar después «modus ponens» 
con «NO ES-AVE —> NO ES-AVESTRUZ» y «NO 
ES-AVE» para obtener «NO ES-AVESTRUZ». 

Existen otras transformaciones básicas 
que estudia la LOGICA y son de aplicación en 
el procesamiento de expresiones de este tipo, 
como la equivalencia de «ES AVESTRUZ — ES- 
AVE» con «O NO ES-AVESTRUZ O ES-AVE» y 
con «no puede ser que se cumpla simultánea- 
mente que ES-AVESTRUZ y NO ES-AVE», pero 
en la mayoría de los casos se utiliza exclusiva- 
mente la regla de «modus ponens» para pro- 
ducir las sucesivas deducciones, 

Sin embargo, la aplicación de esta re- 
gla deductiva no se puede realizar de un 
modo anárquico con todas las reglas de pro- 
ducción que existen en la base de conocimien- 
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tos y con todos los hechos que estén demos- 
trados en la base de hechos y/o memorias 
auxiliares. Deben definirse de algún modo las 
estrategias de búsqueda para que el proceso 
sea más eficaz. 


Control del proceso deductivo 


Aunque, como se ha visto, el proceso de 
obtención de una conclusión (mediante aplica- 
ción de la regla general de deducción, «mo- 
dus ponens», a un hecho conocido) es un paso 
sumámente simple, el proceso general deduc- 
tivo es más complejo. Hay dos problema bási- 
cos en el funcionamiento del motor de inferen- 
cia: 

a) ante todo, cómo comenzar el proce- 
so y/o cuál es el objetivo a alcanzar: en efec- 
to, la base de conocimientos es un cúmulo de 
información estática y habrá que arrancar el 
proceso de algún modo. Pueden utilizarse pro- 
cedimientos diferentes: en ocasiones se mar- 
ca(n) alguno(s) hecho(s) básico(s) con los que 
el motor debe comenzar su actividad deduc- 
tiva; en otros casos se marca un objetivo a ob- 
tener (un hecho a demostrar) y es tarea del 
sistema ver si es demostrable o no; hay siste- 
mas que admiten la presentación de un obje- 
tivo genérico (un conjunto de varios hechos 
que pueden ser demostrados) y el sistema ela- 
bora un proceso deductivo para ver, a partir 
de los hechos ya conocidos, cuál es el que se 
puede demostrar... ¡veremos ésto en detalle a 
continuación! 

b) por otro lado, el motor de inferen- 
cia debe resolver los conflictos que se presen- 
tan cuando, en su tarea deductiva, puede ele- 
gir varias líneas de razonamiento alternativas 
(a partir de diferentes reglas que pueden ser 
aplicables). Debe disponer de «normas» de 
funcionamiento o «reglas sobre cómo aplicar 
las reglas»; o bien, debe tener capacidad para 
consultar al usuario... o ambas cosas a la vez. 

Se puede hablar de unas técnicas ge- 
nerales de conducción del proceso deductivo: 
encadenamiento adelante o atrás, búsqueda 
en profundidad o en anchura, utilización de 
reglas de tipo «ver primero» o heurísticas 
(control por el contenido de las reglas), etc., 
aunque existen numerosos procedimientos de 
control adicionales que se suelen utilizar en 
unos u otros de los sistemas expertos y/o 
herramientas disponibles (activación y desac- 
tivación de paquetes de reglas o control por 
«objetivos ficticios» y «datos ficticios» en Inte- 
lligence Service; «gestión de hipótesis» y utili- 
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zación de primitivas de metaconocimiento es 
SNARK; control de reglas que se activan pa- 
sado un umbral de certeza y reglas de uso ex- 
clusivamente en encadenamiento adelante en 
M.I.M.L., etc.). 

Veremos en detalle las técnicas gene- 
rales citadas anteriormente y comentaremos 
los restantes procedimientos de control para 
que el lector tenga una visión lo más comple- 
ta posible de las técnicas utilizadas para la 
gestión del proceso deductivo en los sistemas 
basados en el conocimiento. 


> 
AR 


Encadenamiento adelante y atrás 


Si arrancamos el proceso deductivo a 
partir de un conjunto de reglas y uno o varios 
hechos conocidos, se puede aplicar la regla 
de «modus ponens» para ir obteniendo hechos 
nuevos demostrados. Así se va «avanzando» a 
través de la base de conocimientos obtenien- 
do sucesivamente nuevos hechos a utilizar en 
los pasos posteriores: esto es el encadena- 
miento hacia adelante. 


o ni 


Fig. 1. Proceso de encadenamiento hacia adelante a partir de un hecho (B) avanzando por la base de conocimientos. 


Si, por el contrario, queremos llegar a 
una conclusión (objetivo a obtener), se puede 
examinar qué reglas de producción tienen en 
su conclusión ese objetivo. Los antecedentes 
de la o las reglas que cumplen esa condición 
son los nuevos objetivos (subobjetivos se lla- 
man a veces) a obtener, pues si podemos de- 
mostrar estos subobjetivos, automáticamente 
la aplicación de la regla correspondiente per- 
mitirá obtener el objetivo buscado. Con cada 


uno de los subobjetivos se realiza la misma 
operación buscando las reglas en que son con- 
clusión: los antecedentes (parte de condición 
o premisas) de esas reglas darán los nuevos 
subobjetivos a obtener... y por este procedi- 
miento vamos «retrocediendo» por la base de 
conocimientos hasta los primeros hechos que 
conocemos o sobre los que se pregunta al 
usuario. Este es el encadenamiento hacia 
atrás. 
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Fig. 2. Proceso de encadenamiento hacia atrás a partir del objetivo M retrocediendo hacia los hechos de base A, B, C.... 


TERMINOLOGIA 


Back chaining. Véase encadenamiento ha- 
cia atrás. 


Backtracking dirigido a dependencias. 


Técnica de programación que permite a un 
sistema eliminar los efectos de suposiciones 
incorrectas durante la búsqueda de la solu- 
ción a un problema. Cuando el sistema in- 
fiere nueva información, mantiene los regis- 
tros de dependencia de todas sus deduccio- 
nes y suposiciones, mostrando cómo fueron 
derivadas. En el momento en que encuen- 
tra que una suposición fue incorrecta, reali- 
za un backtracking (salto hacia trás) en las 
cadenas de inferencias, eliminando aque- 
llas conclusiones basadas en la suposición 
incorrecta. 


Backtracking. Técnica de búsqueda que va 
seleccionando en cada nodo del gráfico el 
nodo adyacente que se tomará a continua- 
ción. Si este es un nodo que no satisface las 
condiciones que se están comprobando 
—«fallo»—, se tomará otro nodo adyacente al 
original. Si todos los nodos adyacentes son 
«fallos», el propio nodo considerado será «fa- 
llo». De esta forma, a través de la secuencia 
de inferencias se van probando los distintos 
caminos. En la planificación de problemas, 
este sistema se utiliza para ir probando uno 
tras otro todos los planes, de forma que va- 
yan identificándose los que sean inacepta- 
bles. 


Búsqueda en anchura. En una jerarquía de 
reglas u objetos, este tipo de búsqueda in- 
dica una estrategia en la que todas las re- 
glas u objetos dentro del mismo nivel de je- 
rarquía se examinan antes que cualquiera 
de las reglas y objetos del siguiente nivel in- 
ferior. En contraposición a búsqueda en pro- 
fundidad. 


en profundidad indica una estrategia en la * 
cual se examina una regla y objeto del ni- 
vel más alto y a continuación las reglas u ob- 
jetos situados inmediatamente debajo del 
examinado. Al proceder de este modo, el 
sistema busca por una rama simple del ár- 
bol jerárquico, hasta terminarla. En contra- 
posición a búsqueda en anchura. 


Búsqueda exhaustiva. Dícese de una bús- 


queda que es exhaustiva si se examina cada 
una de las ramas del árbol de decisión o red 
de decisión. (Este tipo de búsqueda es prác- 
ticamente imposible y muy costosa, por mul- 
titud de razones, en algunos casos concre- 
tos). Los sistemas basados en el conocimien- 
to suelen realizar búsquedas exhaustivas en 
sus bases de conocimiento. 


De arriba a abajo. Estrategia de procedi- 


miento por la cual se va de lo complejo y 
abstracto a lo sencillo y concreto. Si se apli- 
ca como estrategia en la resolución de pro- 
blemas, se refiere al método de comenzar 
con un problema complejo e ir descompo- 
niéndolo en subproblemas que son más sen- 
cillos de resolver. Los sistemas con encade- 
namiento hacia atrás, suelen resolver los 
problemas por éste procedimiento. Si se 
aplica a la metodología de programación, el 
término se refiere a un estilo en el cual la or- 
ganización abstracta del programa se va de- 
terminando en etapas en las que va aumen- 
tando la concreción, culminando por escri- 
bir los elementos primitivos que se pueden 
ejecutar directamente. La estrategia opues- 
ta es de abajo a arriba. 


Dirigido a un modelo. Otra forma de desig- 


nar el encadenamiento hacia atrás. En con- 
traposición a controlado o dirigido por los 
datos. 


Búsqueda en profundidad. En un sistema 


Dirigido hacia objetivos. Término que sig- 
jerárquico de reglas u objetos, la búsqueda 


nifica lo mismo que el Encadenamiento ha- 
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cia atrás. Se utiliza en contraposición a diri- 
gido a datos. 


Dirigido por datos. Controlado por los cam- 
bios efectuados en los datos, en lugar de ha- 
cerlo por los cambios de objetivo. En con- 
traposición a dirigido por objetivos. Véase 
demonio y encadenamiento hacia adelante. 

Dirigido o controlado por un patrón. 
Controlado por ciertas configuraciones de 
datos. Los sistemas de producción son un 
caso especial de sistemas controlados por 
patrones. 


Encadenamiento hacia adelante. Método 
de resolución de problemas, que comienza 
con un conocimiento inicial y aplica reglas 
de inferencia para generar nuevos conoci- 
mientos hasta que cualquiera de las inferen- 
cias satisface el objetivo, o no se pueden 
realizar más inferencias, En los sistemas de 
producción de encadenamiento hacia ade- 
lante, la aplicabilidad de una regla viene 
determinada por la satisfacción de las con- 
diciones especificadas en su lado izquierdo, 
respecto del conocimiento almacenado ac- 
tualmente en la memoria de datos. 


Encadenamiento hacia atrás. Método de 
resolución de problemas. Es una de las dis- 
tintas estrategias de control que regulan el 
orden en el que se establecen las inferen- 
cias. El sistema comienza marcando un ob- 
jetivo a cumplir, y se va ampliando cada ob- 
jetivo sin resolver en otros subobjetivos has- 
ta encontrar la solución, o hasta que cada 
objetivo ha sido dividido en sus componen- 
tes más sencillos. Cuando se resuelve un su- 
bobjetivo, se pasa al objetivo padre. En los 
sistemas de producción de arquitectura de 
encadenamiento hacia atrás, la aplicación 
de una regla se determina examinando sus 
conclusiones (en el lado derecho) en lugar 
de sus condiciones antecedentes (en el lado 
izquierdo). 


Estrategia de control. Método para selec- 
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cionar la acción siguiente entre varias fases 
alternativas de resolución de un problema. 
En sistemas de producción, el encadena- 
miento hacia atrás, es un ejemplo de estra- 
tegia de control. 


Inferencias controladas por los datos. In- 
ferencias controladas por hechos, en lugar 
de serlo por objetivos. Véase Encadena- 
miento hacia adelante. 


Inferencias controladas por objetivos. 
Inferencias controladas por objetivos, en lu- 
gar de serlo por los datos. Véase Encade- 
namiento hacia atrás. 


Método de inferencia. Técnica utilizada 
por el motor de inferencia para acceder y 
aplicar el conocimiento del dominio, por 
ejemplo, los encadenamientos hacia adelan- 
te y hacia atrás. 


Métodos de base lógica. Métodos de pro- 
gramación que utilizan cálculos de predica- 
dos para estructurar el programa y guiar su 
ejecución. 

Modus ponens. Regla de inferencia de la ló- 
gica: A, A >B=B, 

Motor de inferencia. Parte del sistema ba- 
sado en el conocimiento o sistema experto 
que contiene el conocimiento para la reso- 
lución general del problema. El motor de in- 
ferencia procesa el conocimiento de un do- 
minio (localizado en la base de conocimien- 
tos) para obtener nuevas conclusiones. 


Subobjetivo. Objetivo que cuando se satisf- 
ce es suficiente para asegurar que se ha ob- 
tenido también otro objetivo. En sistemas 
con encadenamiento hacia atrás, los objeti- 
vos sin alcanzar se descomponen en subob- 
jetivos más simples, con la esperanza de 
que éstos se puedan resolver con mayor fa- 
cilidad. En los árboles de los objetivos, la re- 
lación de un objetivo con sus subobjetivos 
está representada como una relación pa- 
dre-hijo. 


